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Read Me 



READ ME FILE FOR SOS SOURCE CODE DISK 
Publicus — March 1993 



This Macintosh 800K HFS disk contains the complete source code listing for 
the Apple /// computer's operating system, SOS. This source listing is for 
version 1.3 of SOS, the last released SOS. Note that Apple had (to my 
knowledge) 3 SOS releases: 1.0, 1.1, 1.3 (version 1.2 appeares to have not 
been released to the public). Version 1.3 's release date is February 1982. 

SOS may be read as "Sophisticated Operating System" or "Sara's Operating 
System" since the Apple /// computer was code-named "SARA" by Apple Computer. 

The Apple /// was Apple's premier business computer system for the time 
period 1980 to 1983. 

This source listing is written in 6502 assembly language. The assembler 
used by Apple was an Apple ] [ computer assembler which ran on a networked 
collection of Apple ] [ computers . I have been told by knowledgable /// 
owners that the SOS source code was never ported to an Apple /// even though 
the /// had a nice assembler (as part of the ///'s Pascal development system) . 

For a detailed discussion of SOS see Apple Computer's well-written 
"SOS Reference Manual" series (two volumes) . 

From a historical perspective this source code is of no real use today since 
it is for a discontinued computer system. From a technical perspective this 
source is interesting since it provides a "real world" example of an 
operating system for a microcomputer. From a legal perspective this source 
is rather sensitive since parts of it may be used by Apple in its ProDOS 
operating system for the Apple ] [ series (includes the //e and //GS) . 

Due to the legal ramifications of the SOS source code the author of this 
READ ME file shall remain anonymous . 

This author would very much like to learn a little about how Apple developed 
SOS. If any former /// development team members ever read this file, I hope 
that one of them will write a short "SOS History" and place it in a publically 
accessable area (e.g. CompuServe Information System). 

Enjoy . . . 
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Source Code Catalog 



000001 


] [] [] [] [] [] [] [] [ 

J LJ LJ L J LJ LJ L J LJ L 


] [] 


][][][ 


[] [] [] [] [] 


] [ 


[] [ 


] [] [] [] [] [] 


[] [] 


] [] [ 


000002 


APPLE 


/// 


SOS 1 


3 A] [ SOURCE CODE 


DISK CATALOG LISTIN 


000003 


] [] [] [] [] [] [] [] [ 


] [] 


][][][ 


[] [] [] [] [] 


] [ 


[] [ 


][][][][][] 


[] [] 


] [] [ 


000004 




















000005 


/SOS1.3.0NE 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000006 


SYSGLOB . SRC 




17 


31-Dec-89 


18 


17 


Asciif ile 


304 


18 


000007 


OPRMSG . SRC 




11 


31-Dec-89 


18 


18 


Asciif ile 


260 


12 


000008 


IPL.SRC1 




25 


31-Dec-89 


18 


19 


Asciif ile 


237 


26 


000009 


IPL.SRC2 




19 


31-Dec-89 


18 


20 


Asciif ile 


208 


20 


000010 


SOSLDR.SRC 




9 


31-Dec-89 


19 


56 


Asciif ile 


455 


10 


000011 


BFM. INIT2 . SRC 




9 


31-Dec-89 


18 


21 


Asciif ile 


371 


10 


000012 


INI T. SRC 




16 


31-Dec-89 


18 


22 


Asciif ile 


194 


17 


000013 


SOSLDR.A.SRC 




12 


31-Dec-89 


18 


34 


Asciif ile 


424 


13 


000014 


SOSLDR.B.SRC 




9 


13-Jan-90 


22 


17 


Asciif ile 


113 


10 


000015 


SOSLDR.C.SRC 




13 


31-Dec-89 


18 


23 


Asciif ile 


440 


14 


000016 


SOSLDR.D.SRC 




29 


31-Dec-89 


18 


24 


Asciif ile 


28 


30 


000017 


SOSLDR.E . SRC 




16 


31-Dec-89 


18 


25 


Asciif ile 


334 


17 


000018 


SOSLDR.F.SRC 




21 


31-Dec-89 


18 


27 


Asciif ile 


419 


22 


000019 


13 files listed, 


52 


blocks 


available 












000020 




















000021 


/SOS1.3.TWO 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000022 


DISK3.SRC 




9 


31-Dec-89 


18 


53 


Asciif ile 


496 


10 


000023 


DISK3. DATA. SRC 




3 


31-Dec-89 


18 


54 


Asciif ile 


403 


4 


000024 


DISK3. SUBS. SRC 




13 


31-Dec-89 


18 


55 


Asciif ile 


136 


14 


000025 


DISK3 . USEL . SRC 




8 


31-Dec-89 


18 


56 


Asciif ile 


108 


9 


000026 


DISK3 . SIO . SRC 




11 


31-Dec-89 


18 


57 


Asciif ile 


249 


12 


000027 


DISK3.WRT.SRC 




7 


31-Dec-89 


18 


57 


Asciif ile 


43 


8 


000028 


DISK3. MAIN. SRC 




10 


31-Dec-89 


18 


58 


Asciif ile 


175 


11 


000029 


SYSERR.SRC 




7 


31-Dec-89 


19 


00 


Asciif ile 


355 


8 


000030 


SCMGR.SRC 




22 


31-Dec-89 


19 


01 


Asciif ile 


500 


23 


000031 


FMGR.SRC 




4 


31-Dec-89 


19 


01 


Asciif ile 


95 


5 


000032 


CFMGR.SRC 




18 


31-Dec-89 


19 


02 


Asciif ile 


44 


19 


000033 


BUFMGR . SRC 




29 


31-Dec-89 


19 


03 


Asciif ile 


41 


30 


000034 


MEMMGR . A . SRC 




18 


31-Dec-89 


19 


04 


Asciif ile 


357 


19 


000035 


MEMMGR . B . SRC 




18 


31-Dec-89 


19 


05 


Asciif ile 


65 


19 


000036 


MEMMGR. C. SRC 




14 


31-Dec-89 


19 


09 


Asciif ile 


376 


15 


000037 


DEVMGR . SRC 




11 


31-Dec-89 


19 


10 


Asciif ile 


281 


12 


000038 


16 files listed, 


55 


blocks 


available 












000039 




















000040 


/SOS 1.3. THREE 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000041 


UMGR . SRC 




27 


31-Dec-89 


19 


22 


Asciif ile 


350 


28 


000042 


ALLOC 




23 


31-Dec-89 


19 


24 


Asciif ile 


345 


24 


000043 


EQUATES 




19 


31-Dec-89 


20 


55 


Asciif ile 


186 


20 


000044 


FNDFIL 




42 


31-Dec-89 


19 


27 


Asciif ile 


263 


43 


000045 


PRINT 




1 


31-Dec-89 


19 


29 


Asciif ile 


435 


1 


000046 


PATH 




33 


31-Dec-89 


19 


30 


Asciif ile 


497 


34 


000047 


VOLUME 




9 


31-Dec-89 


19 


31 


Asciif ile 


369 


10 


000048 


CREATE 




30 


12-Jan-89 


22 


30 


Asciif ile 


441 


31 


000049 


8 files listed, 


82 blocks available 












000050 




















000051 


/SOS1.3.FOUR 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000052 


SWAPOUT . IN 




21 


31-Dec-89 


19 


47 


Asciif ile 


303 


22 


000053 


CLOSE. EOF 




23 


31-Dec-89 


19 


48 


Asciif ile 


87 


24 


000054 


READ. WRITE 




38 


31-Dec-89 


19 


49 


Asciif ile 


86 


39 


000055 


DESTROY 




28 


31-Dec-89 


19 


50 


Asciif ile 


242 


29 


000056 


POSN . OPEN 




44 


31-Dec-89 


19 


52 


Asciif ile 


243 


45 


000057 


5 files listed, 


114 


blocks 


available 












000058 




















000059 


/SOS1.3.FIVE 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000060 


LCHK 




1 


31-Dec-89 


19 


59 


Asciif ile 


147 


1 


000061 


LC 




1 


31-Dec-89 


20 


00 


Asciif ile 


74 


1 


000062 


COMPILE. BFM 




1 


31-Dec-89 


20 


00 


Asciif ile 


68 


1 
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000063 


COMPILE. SOS 


2 


31-Dec- 


89 


20 


01 


Asciif ile 


97 


3 


000064 


SOS . BLOAD 


1 


31-Dec- 


89 


20 


02 


Asciif ile 


450 


1 


000065 


SOS. LINK 


1 


31-Dec- 


89 


20 


03 


Asciif ile 


170 


1 


000066 


SOS . RENAME 


2 


31-Dec- 


89 


20 


03 


Asciif ile 


11 


3 


000067 


FEB01 . 1982 


2 


31-Dec- 


89 


20 


04 


Asciif ile 


64 


3 


000068 


PUBLICRELEASE 


1 


31-Dec- 


89 


20 


05 


Asciif ile 


71 


1 


000069 


COMP . SOS . NOLIST 


2 


31-Dec- 


89 


20 


05 


Asciif ile 


79 


3 


000070 


TCOMP . SOS 


1 


31-Dec- 


89 


20 


06 


Asciif ile 


388 


1 


000071 


SOSORG 


5 


31-Dec- 


89 


20 


07 


Asciif ile 


428 


6 


000072 


C.S 


1 


31-Dec- 


89 


20 


08 


Asciif ile 


116 


1 


000073 


C.BI2 


1 


31-Dec- 


89 


20 


09 


Asciif ile 


76 


1 


000074 


C3 


1 


31-Dec- 


89 


20 


09 


Asciif ile 


155 


1 


000075 


COMP. OPR. I PL 


1 


31-Dec- 


89 


20 


10 


Asciif ile 


124 


1 


000076 


16 files listed, 244 


blocks 


available 
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Source File Line and Character Counts 



File Name 


Lines 


Chars 


SOS 


ALLOC . TEXT 


397 


17638 


SOS 


BFM . INIT2 . SRC . TEXT 


2 92 


7309 


SOS 


BUFMGR. SRC. TEXT 


789 


19743 


SOS 


C . BI2 . TEXT 


12 


535 


SOS 


C . S . TEXT 


14 


569 


SOS 


C3 . TEXT 


15 


605 


SOS 


CFMGR. SRC. TEXT 


496 


13356 


SOS 


CLOSE. EOF. TEXT 


410 


17303 


SOS 


COMP.OPR. I PL. TEXT 


15 


594 


SOS 


COMP . SOS . NOLIST . TEXT 


27 


1055 


SOS 


COMPILE. BFM. TEXT 


13 


538 


SOS 


COMPILE. SOS. TEXT 


28 


1067 


SOS 


CREATE . TEXT 


547 


23241 


SOS 


DESTROY . TEXT 


482 


21039 


SOS 


DEVMGR. SRC. TEXT 


298 


8289 


SOS 


DISK3 . DATA. SRC . TEXT 


84 


2847 


SOS 


DISK3 . MAIN . SRC . TEXT 


234 


8117 


SOS 


DISK3 . SIO. SRC . TEXT 


255 


8500 


SOS 


DISK3. SRC. TEXT 


220 


7736 


SOS 


DISK3 . SUBS . SRC . TEXT 


286 


9331 


SOS 


DISK3 . USEL . SRC . TEXT 


168 


5831 


SOS 


DISK3 . WRT . SRC . TEXT 


170 


5611 


SOS 


EQUATES. TEXT 


366 


13973 


SOS 


FEB01 . 1982 .TEXT 


25 


1029 


SOS 


FMGR. SRC. TEXT 


119 


3003 


SOS 


FNDFIL . TEXT 


809 


32436 


SOS 


INI T. SRC. TEXT 


476 


12190 


SOS 


I PL. SRC 1. TEXT 


664 


18089 


SOS 


I PL. SRC 2. TEXT 


465 


12829 


SOS 


LC . TEXT 


13 


562 


SOS 


LCHK . TEXT 


16 


659 


SOS 


MEMMGR . A . SRC . TEXT 


486 


13115 


SOS 


MEMMGR . B . SRC . TEXT 


606 


13264 


SOS 


MEMMGR . C . SRC . TEXT 


500 


10657 


SOS 


OPRMSG . SRC . TEXT 


342 


8421 


SOS 


PATH . TEXT 


596 


25582 


SOS 


POSN. OPEN. TEXT 


718 


32672 


SOS 


PRINT . TEXT 


31 


1063 


SOS 


PUBLICRE LEASE . TEXT 


13 


544 


SOS 


READ. WRITE. TEXT 


669 


28620 


SOS 


SCMGR. SRC. TEXT 


607 


16237 


SOS 


SOS . BLOAD . TEXT 


33 


897 


SOS 


SOS .LINK. TEXT 


26 


633 


SOS 


SOS . RENAME . TEXT 


27 


988 


SOS 


SOSLDR.A.SRC.TEXT 


123 


4449 


SOS 


SOSLDR.B. SRC. TEXT 


85 


3059 


SOS 


SOSLDR.C. SRC. TEXT 


252 


7735 


SOS 


SOSLDR.D. SRC. TEXT 


635 


19725 


SOS 


SOSLDR.E. SRC. TEXT 


442 


12539 


SOS 


SOSLDR.F. SRC. TEXT 


585 


16170 


SOS 


SOSLDR. SRC. TEXT 


131 


4618 


SOS 


SOSORG.TEXT 


68 


3844 


SOS 


SWAPOUT . IN . TEXT 


404 


15484 


SOS 


SYSERR. SRC. TEXT 


206 


5470 


SOS 


SYSGLOB . SRC . TEXT 


370 


12894 


SOS 


TCOMP . SOS . TEXT 


20 


844 


SOS 


UMGR. SRC. TEXT 


818 


21588 


SOS. VOLUME. TEXT 


225 


7273 


Total 


17223 


564009 
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Source Code File Listings 



FILE : "SOS. ALLOC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 



* APPLE /// SOS 1.3 SOURCE CODE FILE: ALLOC 



*************************** 



******** 



ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



DEALL2 



DEALL3 



DEALERR 
DEALERR1 



STX 
PHA 
LDX 
LDA 
CMP 
PLA 
BCC 
TAX 
AND 
TAY 
LDA 
STA 
TXA 
LSR 
ROR 
LSR 
ROR 
LSR 
ROR 
STA 
LSR 
ROL 
LDX 
LDA 
CMP 
BEQ 
JSR 
BCS 
LDA 
LDY 
STA 
LDX 
LDA 
JSR 
BCS 
LDY 
LSR 
BCC 
INC 
LDA 
ORA 
STA 
BCC 
DEC 
LDX 
LDA 
ORA 
STA 
CLC 
RTS 
LDA 
SEC 
RTS 

DFB 
DFB 



PAGE 

LDA 
STA 
JSR 
BCS 
LDY 
STA 
INC 
LDA 



BMCNT 
VCBPTR 

VCB+VCBTBLK+1,X 
BMCNT 

DEALERR1 

#$7 

WHICHBIT,Y 
NOFREE 

BMCNT 
A 

BMCNT 
A 

BMCNT 
A 

BMPTR 

BMCNT 

HALF 

BMTAB 

BMACMAP, X 

BMCNT 

DEALL1 

BMAPUP 

DEALERR 

BMCNT 

#VCBCMAP 

(VCBPTR) ,Y 
BMTAB 
BMADEV, X 
GTBMAP 
DEALERR 
BMPTR 
HALF 
DEALL2 
BMADR+1 
NOFREE 

(BMADR) , Y 

(BMADR) , Y 

DEALL3 

BMADR+1 

BMTAB 

#$80 

BMASTAT, X 
BMASTAT, X 



IBITMAPADR 



$80, $40, $20, $10 
8,4,2,1 



#0 

SAPTR 
ALC1BLK 
ERRALC1 
SAPTR 
(TINDX) , Y 
TINDX+1 
SCRTCH+1 



SAVE HIGH ORDER ADDRESS OF BLOCK TO BE FREED. 
SAVE IT 

WHILE THE BITMAP 

DISK ADDRESS IS CHECKED 

TO SEE IF IT MAKES SENSE 

RESTORE 

BRANCH IF IMPOSSIBLE 

GET THE BIT TO BE OR-ED IN. 

(SHIFTING TAKES 7 BYTES, BUT IS SLOWER) 

SAVE BIT PATTERN 

GET LOW BLOCK ADDRESS AGAIN . 

GET POINTER TO BYTE IN BITMAP THAT REPRESENTS 
THE BLOCK ADDRESS. 



SAVE POINTER. 

NOW TRANSFER BIT WHICH SPECIFIES WHICH PAGE OF BITMAP. 

(THIS POINTS TO THE TABLE FOR THE BITMAP BUFFER USED) . 
WHAT IS THE CURRENT MAP 
IS IN CORE BIT MAP THE ONE WE WANT? 
BRANCH IF IN-CORE IS CORRECT. 
PUT CURRENT MAP AWAY. 
PASS BACK ANY ERROR. 
GET DESIRED MAP NUMBER. 

AND MAKE IT CURRENT. 



READ IT INTO THE BUFFER, 
INDEX TO BYTE. 

BRANCH IF ON PAGE ONE OF BITMAP. 
THE INDIVIDUAL BIT. 

BRANCH IF ADDRESS IS PROPER 
MARK BITMAP AS MODIFIED. 



BIT MAP BLOCK NUMBER IMPOSSIBLE 
SAY BIT MAP DISK ADDRESS WRONG 

(PROBABLY DATA MASQUERADING AS INDEX BLOCK) 



ALLOCATION OF THE INDEXES ALWAYS FILLS IN 
STARTING AT THE BEGINNING OF THE BLOCK. 
THIS GETS FIRST INDEX AND SETS UP A 
POINTER TO THE FREE BLOCKS (TO AVOID 
SCANNING THE WHOLE BLOCK EVERY TIME) . 
SAVE INDEX BLOCK ADDRESS (LOW) 

; GET HIGH BYTE OF ADDRESS 
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000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 



ALDXEND 

ALC1BLK 
SRCHFRE 
GETBITS1 



STA 
DEC 
DEC 
BEQ 
INC 
LDY 
LDA 
BNE 
JSR 
BCC 
RTS 

JSR 
BCC 
RTS 



JSR 
BCS 
LDY 
STY 
LDA 
BNE 
I NY 
BNE 
INC 
INC 
INC 
LDA 
BNE 
I NY 
BNE 
DEC 
INC 
JSR 
BCC 
RTS 
PAGE 

STY 
LDA 
STA 
TYA 
ASL 
ROL 
ASL 
ROL 
ASL 
ROL 
TAX 
LDA 
SEC 
ROL 
BCS 
I NX 
BNE 
LSR 
BCC 
STA 
STX 
LDX 
LDA 
ORA 
STA 
LDY 
LDA 
SBC 
STA 
BCS 
I NY 
LDA 
SBC 
STA 
CLC 
LDA 
LDY 
RTS 

PAGE 



(TINDX) , Y 
TINDX+1 
REQL 
ALDXEND 
SAPTR 
BMPTR 
HALF 
SECNDHAF 
GETBITS1 
ALIDX1 



GETBITS2 
ALIDX1 



FNDBMAP 
ERRALC1 
#0 

HALF 

(BMADR) ,Y 
BITFOUND 

GETBITS1 
BMADR+1 
HALF 
BASVAL 
(BMADR) , Y 
BITFOUND 

GETBITS2 

BMADR+1 

BASVAL 

NXTBMAP 

SRCHFRE 



BMPTR 

BASVAL 

SCRTCH+1 

A 

SCRTCH+1 
A 

SCRTCH+1 
A 

SCRTCH+1 
(BMADR) , Y 
A 

BOUNCE 

ADCALC 
A 

BOUNCE 
(BMADR) , Y 
SCRTCH 
BMTAB 
#$80 

BMASTAT, X 
BMASTAT, X 
#VCBTFRE 
(VCBPTR) ,Y 
#1 

(VCBPTR) ,Y 
RET1BLK 

(VCBPTR) ,Y 
#0 

(VCBPTR) ,Y 

SCRTCH 
SCRTCH+1 



tVCBDEV 



ALC1BLK 1 ) 



(AND SAVE IT) 

HAS REQUEST BEEN SATIFIED? 
(CARRY IS CLEAR) 
BUMP INDEX POINTER 

GET INDEX POINTER TO LAST ACCESSED BIT GROUP 
WHICH HALF OF MAP? (BOTH BMPTR & HALF SET UP BY 

GET NEXT FREE BLOCK ADDRESS. 
BRANCH IF NO ERROR 



GET NEXT FREE BLOCK ADDRESS FROM SECOND HALF OF BIT MAP 
BRANCH IF NO ERROR. 

RETURN STATUS (CARRY SET INDICATES ERROR) 



GET ADDRESS OF BIT MAP IN 'BMADR' 
BRANCH IF ERROR ENCOUNTERED 

START SEARCH AT BEGINNING OF BIT MAP BLOCK 
INDICATE WHICH HALF (PAGE) WE'RE SEARCHING. 

FREE BLOCKS ARE INDICATED BY 'ON' BITS 

CHECK ALL OF 'EM IN FIRST PAGE. 
BUMP HIGH ADDRESS OF CURRENT BITMAP 
INDICATE SEARCH HAS PROGRESSED TO PAGE 2 
BASE VALUE= BASE ADDRESS/2048 
SEARCH SECOND HALF FOR FREE BLOCK 



RESET BIT MAP ADDRESS TO BEGINNING. 
ADD 2048 OFFSET FOR NEXT PAGE 

GET NEXT BITMAP (IF IT EXISTS) AND UPDATE VCB. 
BRANCH IF NO ERROR ENCOUNTERED. 
RETURN ERROR. 



SAVE INDX POINTER TO VALID BIT GROUP 
SET UP FOR BLOCK ADDRESS CALCULATION 



GET ADDRESS OF BIT PATTERN 
MULTIPLY THIS AND BASVAL BY 



NOW X= LOW ADDRESS WITHIN 7 OF ACTUAL ADDRESS. 

GET BIT PATTERN AGAIN 

MARK RIGHT END OF BYTE. 

FIND LEFT MOST 'ON' BIT 

BRANCH IF FOUND. 

ADJUST LOW ADDRESS 

BRANCH ALWAYS 

RESTORE ALL BUT LEFT MOST BIT TO ORIGINAL POSITION 
LOOP UNTIL MARK (SET ABOVE) MOVES INTO CARRY 
UPDATE BITMAP TO SHOW ALLOCATED BLOCK IN USE. 
SAVE LOW ADDRESS. 
UPDATE BIT MAP BUFFER STATUS 
INDICATE MAP HAS BEEN MODIFIED 
(X IS EITHER OR 6 FOR 
BUFFER 'A' OR 'B' RESPECTIVELY.) 
SUBTRACT 1 FROM TOTAL FREE 
BLOCKS IN VCB TO ACCOUNT FOR NEWLY 
ALLOCATED BLOCK (CARRY IS SET FROM 'BOUNCE') 

; BRANCH IF HI FREE COUNT DOESN'T NEED ADJUSTMENT. 

; ADJUST HIGH COUNT. 

; (CARRY IS CLEAR, SO ACC=ACC-1) 

; INDICATE NO ERROR ENCOUNTERED 
; GET ADDRESS LOW IN ACC. 
; AND HIGH ADDRESS IN Y 

; RETURN ADDRESS OF NEWLY ALLOCATED BLOCK. 



; GET DEVICE NUMBER SO WE DON'T 
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FREEBE 
FREEA 



000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 

000176 USEBUF 

000177 

000178 

000179 

000180 

000181 

000182 

000183 

000184 

000185 

000186 

000187 

000188 

000189 

000190 

000191 

000192 

000193 SOMERR1 

000194 * 
000195 

000196 NXTBMAP 

000197 

000198 

000199 

000200 

000201 

000202 

000203 

000204 

000205 

000206 

000207 

000208 

000209 

000210 

000211 

000212 

000213 

000214 * 

000215 GETA.BU 
000216 

000217 * 

000218 GETB.BU 
000219 

000220 * 

000221 * 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 



FNDBMAP 

FNDMAP1 
FRESHMAP 



TRYMAP2 



LDX 
LDA 
CMP 
BEQ 
CMP 
BEQ 
JSR 
BCC 
RTS 

LDX 
STX 
LDY 
BPL 
STX 
JSR 
BCS 
LDX 
LDA 
STA 
LDX 
LDA 
STA 
STA 
STA 
LDA 
STA 
TXA 
EOR 
STA 
TAX 
LDA 
STA 
LDA 
STA 
STA 
CLC 
RTS 

PAGE 

LDY 

LDA 

LSR 

LSR 

LSR 

LSR 

LDY 

CMP 

BEQ 

LDA 

CLC 

ADC 

STA 

LDY 

LDA 

TAX 

JSR 

JMP 

LDX 
BEQ 

LDX 
BNE 



LDY 
LDA 
LDX 
CMP 
BNE 
STX 
LDY 
BMI 
JSR 
BCC 
RTS 

DEX 

BPL 
LDX 



#0 

(VCBPTR) ,Y 
BMADEV 
FREEBE 
BMBDEV 
FREEA 
FNDBMAP 
GTTINDX 



tBMTABSZ 

NOFREE 

BMASTAT, X 

USEBUF 

ZPGTEMP 

WRTBMAP 

SOMERR1 

ZPGTEMP 

#0 

BMASTAT, X 

NOFREE 

#0 

BMADEV, X 
TINDX 
BMADR 
BMAMADR, X 
TINDX+1 

tBMTABSZ 
BMTAB 

BMAMADR, X 

BMADR+1 

BMBUFBNK 

SSTIDXH 

SISBMADR 



#VCBTBLK+1 
(VCBPTR) ,Y 
A 
A 

A 
A 

#VCBCMAP 
(VCBPTR) ,Y 

NOMORBIT 
(VCBPTR) ,Y 



(VCBPTR) , Y 
#VCBDEV 
(VCBPTR) ,Y 

UPBMAP 
FNDBMAP 

#0 

FRESHMAP 

tBMTABSZ 
FRESHMAP 



tVCBDEV 
(VCBPTR) ,Y 

#0 

BMADEV, X 
TRYMAP2 
BMTAB 
BMASTAT, 
BMFOUND 
GTBMAP 
BMFOUND 



ANTICPATE USING BUFFER 'A' . 

USE THE BUFFER USED BY IT! 

IS IT IN BUFFER 'A' ? 

IF SO, FREE ' B' ! 

IF NOT, IS IT IN 'B' ? 

IF SO, FREE UP BUFFER 'A' 

OTHERWISE, FORCE ALLOCATION FOR ONE OF THE BUFFERS 
NOW TRY AGAIN. 
RETURN ERROR. 

DE-ALLOCATE BUFFER IF NECESSARY 

SAVE WHICH BUFFER WE'RE LOOKIN AT. 

DO WE NEED TO WRITE BUFFER TO FREE IT? 

NO, THEN USE IT. 

SAVE BM BUFFER ID FOR A BIT 

WRITE BM TO OWNING UNIT 

RETURN ANY ERROR (W/O RELEASING BM) 

FETCH THE BM BUFFER ID 

AND MARK BM BUFFER AS FREE 
GET INDEX TO BUFFER INFO 
MARK STATUS OF BUFFER AS FREE. 
(DEVICE IS NOT ANY DEVICE) 



GET MEMORY ADDRESS OF FREE BUFFER. 

SET UP PROPER HI ADDRESS OF BIT MAP TOO. . . 
SELECT ALTERNATE BIT MAP TABLE. 
(TO INDICATE WHICH IS BITMAP) 

GET HIGH ADDRESS OF BIT MAP. 

AND BANK PAIR NUMBER. 

INDICATE NO ERRORS 



FRBMBUF 
tBMTABSZ 



BEFORE BUMPING TO NEXT MAP, 
CHECK TO BE SURE THERE IS 
INDEED A NEXT MAP! 



ARE THERE MORE MAPS? 

BRANCH IF NO MORE TO LOOK AT. 

ADD 1 TO CURRENT MAP 



GO WRITE OUT LAST MAP IF NECESSARY 
READ NEXT BIT MAP INTO BUFFER 



BRANCH ALWAYS 

GET DEVICE NUMBER 
START WITH MAP 'A' 



SAVE POINTER TO BIT MAP INFO TABLE 
IS THIS ONE ALREADY MODIFIED? 
YES, RETURN POINTER IN 'BMADR' 
OTHERWISE READ IN FRESH BIT MAP 
BRANCH IF SUCCESSFUL. 
OTHERWISE, RETURN ERROR. 

WAS LAST FAILURE MAP 'A' 

NO, MUST FREE UP ONE OF THE BUFFERS 

TRY BIT MAP BUFFER 'B'. 
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000237 


JMP 


FNDMAP1 




000238 


PAGE 






000239 








000240 


BMFOUND LDX 


BMTAB 


WHICH TABLE? 


000241 


LDY 


#VCBCMAP 




000242 


LDA 


(VCBPTR) , Y 




000243 


ASL 


A 




000244 


STA 


BASVAL 




000245 


LDA 


BMAMADR, X 


GET HIGH ADDRESS 


000246 


STA 


BMADR+1 




000247 


LDA 


BMBUFBNK 


GET BANK NUMBER OF BUFFER BIT MAP BUFFERS 


000248 


STA 


SISBMADR 




000249 


LDA 


#0 


BUFFERS ALWAYS FALL ON A PAGE BOUNDARY 


000250 


STA 


BMADR 




000251 


CLC 




INDICATE ALL IS VALID AND GOOD! 


000252 


RTS 






000253 








000254 


NOMORBIT LDA 


fOVRERR 


INDICATE REQUEST CAN'T BE FILLED. 


000255 


SEC 




INDICATE ERROR 


000256 


RTS 






000257 








000258 


FRBMBUF SEC 






000259 


LDX 


BMTAB 


FIND OUT WHICH WAS LAST USED. 


000260 


BEQ 


CHKBMB 


IF 'A' WAS USED CHECK 'B' FIRST 


0002 61 


CLC 




INDICATE 'A' IS CHECKED FIRST 


0002 62 


BIT 


BMASTAT 


IS BUFFER 'A' FREE (UNMODIFIED) ? 


000263 


BPL 


GETA . BUF 


YES, USE IT. 


0002 64 


CHKBMB BIT 


BMBSTAT 


IS BUFFER 'B' FREE? 


000265 


BCC 


FREBUF1 


BRANCH IF BOTH ARE USED 


000266 


BPL 


GETB . BUF 


YES . . . 


000267 


BIT 


BMASTAT 


(CHECK ' A 1 ) 


000268 


BPL 


GETA. BUF 




000269 


FREBUF1 LDX 


#0 




000270 


BCC 


FREBUFA 


BRANCH IF BUFFER 'A' HAS LEAST PRIORITY. 


000271 


LDX 


#BMTABSZ 




000272 


FREBUFA STX 


ZPGTEMP 


SAVE BM BUFF ID FOR A BIT 


000273 


JSR 


WRTBMAP 


XREG PASSES BM BUFF ID 


000274 


BCS 


NOGO 


ERROR ENCOUNTERED ON WRITING 


000275 


LDX 


ZPGTEMP 


FETCH BM BUFF ID 


000276 


LDA 


#0 




000277 


STA 


BMASTAT, X 


AND MARK BM BUFFER AS FREE 


000278 


BCC 


FNDBMAP 


LOOK AGAIN FOR FRRE BIT MAP BUFFER SPACE 


000279 


NOGO RTS 




RETURN ERROR ON WRITING BM 


000280 








000281 


UPBMAP CPX 


BMADEV 


UPDATE BIT MAP OF DEVICE X 


000282 


BNE 


UPBM1 




000283 


CLC 




FREE BUFFER 'A' IF NEEDED. 


000284 


BIT 


BMASTAT 




000285 


BMI 


FREBUF1 


(CARRY CLEAR FOR BUFFER 'A') 


000286 


RTS 






000287 


PAGE 






000288 








000289 


UPBM1 CPX 


BMBDEV 




000290 


BNE 


NOUPDAT 


DON'T UPDATE IF NOT NECESSARY. 


000291 


BIT 


BMBSTAT 




000292 


BMI 


FREBUF1 


(CARRY IS SET) 


000293 


NOUPDAT CLC 






000294 


RTS 




RETURN 'NO ERROR' 


000295 








000296 


CLEARBMS EQU 


-k 


MAKE SURE ALL BIT MAPS ASSOCIATED 


000297 


* WITH A DEVICE ARE MARKED INVALID 




000298 


* IF A NEW VOLUME IS 


LOGGED IN ON IT. 




000299 


* INPUT ARG: A REG = 


DEVNUM 




000300 


* X REG PRESERVED 






000301 


LDY 


#0 




000302 


CMP 


BMADEV 




000303 


BNE 


CLRBM1 


BRANCH IF BIT MAP A NOT OWNED 


000304 


BIT 


BMASTAT 




000305 


BMI 


CLRBM2 


BRANCH IF BITMAP A BUSY 


000306 


STY 


BMADEV 


ELSE, CLEAR IT 


000307 


CLRBM2 RTS 




NEED ONLY CLEAR ONE 


000308 


CLRBM1 CMP 


BMBDEV 


BIT MAP B? 


000309 


BNE 


CLRBM2 


BRANCH IF BIT MAP B NOT OWNED BY DEVNUM 


000310 


BIT 


BMBSTAT 




000311 


BMI 


CLRBM2 


BRANCH IF BITMAP B BUSY 


000312 


STY 


BMBDEV 


ELSE CLEAR IT 


000313 


RTS 




AND RETURN TO CALLER (NO ERRORS) 


000314 








000315 


GTBMAP STA 


BMADEV, X 


SAVE ACC AS CURRENT DEVICE FOR BUFFER 


000316 


LDA 


BMAMADR, X 


GET HIGH ORDER ADDRESS OF BUFFER 


000317 


STA 


BMADR+1 


SELECTED BY X 
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000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 



DROP INTO 



RDGBUF 
SVGCMD 



DOBITMAP 
DOIDX 



RDFRST 
FADDR 



LDA 
STA 
LDY 
LDA 
STA 
CLC 
LDY 
ADC 
STA 
I NY 
LDA 
ADC 
STA 
1 RDBMAP ' 

PAGE 

LDA 
STA 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
JSR 
PLA 
STA 
RTS 

LDA 
JMP 

LDA 
BNE 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
EQU 
STA 
STX 
LDA 
STA 
JMP 



LDA 
LDX 
LDY 
STA 
STX 
STY 
LDA 
LDX 
JMP 

LDA 
BNE 
LDA 
LDX 
LDY 
JMP 



BMBUFBNK 
SISBMADR 
#VCBCMAP 
(VCBPTR) , Y 
BMACMAP, X 

IVCBDMAP 
(VCBPTR) ,Y 
BMADADR, X 

(VCBPTR) ,Y 

#0 

BMADADR+ 1 , X 



IRDCMD 
DHPCMD 
DEVNUM 

BMADEV, X 
DEVNUM 
BMADADR, X 
BLOKNML 
BMADADR+ 1 , X 
BLOKNMH 
BMAMADR, X 
BMBUFBNK 
DOBITMAP 

DEVNUM 



IWRTCMD 
DOBMAP 

IWRTCMD 

SVGCMD 

#RDCMD 

DHPCMD 

BLOKNML 

TTLINK 

BLOKNMH 

TTLINK+1 

#GBUF/256 

#0 

DBUFPH 
SISBPH 
#0 

DBUFPL 
FILEI02 



IWRTCMD 

IDXADRL 

IDXADRH 

DHPCMD 

BLOKNML 

BLOKNMH 

TINDX+1 

SSTIDXH 

DOIDX 

#WRTCMD 

FADDR 

IRDCMD 

DFIL+D.FRST 

DFIL+D . FRST+1 

DOFRST 



AND GET BANK PAIR NUMBER 

OF BOTH BIT MAP BUFFERS 'A' AND 'B' 

GET LOWEST MAP NUMBER WITH FREE BLOCKS IN IT. 

ASSOCIATE THE OFFSET WITH THE BITMAP CONTROL BLOCK 

ADD THIS NUMBER TO THE BASE 
ADDRESS OF FIRST BIT MAP 

SAVE LOW ADDRESS OF BIT MAP TO BE USED. 
NOW GET HIGH DISK ADDRESS OF MAP 
ADD TO THIS THE STATE OF THE CARRY 

SAVE HIGH DISK ADDRESS TOO. 



(X CONTAINS AN INDEX TO DETERMINE WHICH BUFFER) 

SAVE DEVICE COMMAND 

FIX THE 'BIT MAP TRASH BUG' 

BY NOT MUNGING DEVNUM 

GET DEVICE NUMBER. 

; AND MAP'S DISK ADDRESS 



LASTLY GET THE ADDRESS OF THE BUFFER 
AND BANK NUMBER. 

(NOTE: LOW ADDRESS IS FIXED TO ZERO AS THIS IS A BUFFER) 
RESTORE 

THE DEVNUM WE CAME IN WITH! 



WRITE BIT MAP POINTED TO BY X 



SET CALL FOR WRITE. 
BRANCH ALWAYS. 
SET CALL FOR READ. 
PASSED TO DEVICE HANDLER. 
SAVE CURRENT 
GBUF BLOCK 
ADDRESS 

FOR DIRECTORY EXTEND 

GET HIGH ADDRESS OF GENERAL BUFFER 

TO FORCE ACCESS TO NON BANK MEMORY. 



SELECT BANK 

GENERAL PURPOSE BUFFERS ALWAYS 
START ON A PAGE BOUNDARY. 
END VIA DEVICE DISPATCHER. 

GBUF CURRENT ADDRESS 



GET BLOCK ADDRESS OF INDEX BLOCK 
(ENTRY USED BY RD/WRTDFRST) 



HIGH RAM ADDRESS OF INDEX BLOCK 

AND BANK NUMBER. 

AND GO DO REQUESTED OPERATION. 

WRITE FILE'S FIRST BLOCK (USED 

BY CREATE, SO ADDRESS IN 'D.' STUFF). 

(BUFFER ADDRESS IS IN ' TINDX ' ) 



CHN POSN/OPEN, 4, 2 

************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: ALLOC 

************************************************************************* 
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FILE : "SOS . BFM. INIT2 . SRC . TEXT" 



r\ n n r\ n i 

000001 


************************************************************************* 


000002 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE: 


BFM. 


INIT2 


.SRC 


000003 














************************** 


000004 


* ASSEMBLER: APPLE ] [ 


65 


02 


ASSEMBLER 


from 


APPLE 


COMPUTER TOOLKIT 


000005 
















000006 


SBTL 






"SOS 1.1 


BFM. INIT2" 




00000 / 


REL 














r\ n n r\ n o 

000008 


INCLUDE 




SOSORG, 6, 1 


,254 






000009 


ORG 






ORGBFMI 








000010 


MSB 






OFF 








000011 


REP 






60 








000012 


* COPYRIGHT 


(C) 


APPLE COMPUTER INC. 1980 


000013 


* 


ALL 


RIGHTS RESERVED 






000014 


REP 






60 








000015 


* 














000016 


* BLOCK FILE MANAGER 


INIT2 










000017 


* 














000018 


* SECONDARY INITIALIZATION ROUTINE FOR BLOCK FILE MANAGER 


000019 


* 














r\ n n r\ n n 

000020 


* MODIFIED: 03/25/81 


TO 


UTILIZE NEW 








000021 


* DISK DRIVER'S SEEKDSK3 


ROUTINE. 








000022 


* CHANGES MARKED BY 


' D3RRA81084 ' 








000023 
















000024 


* MODIFIED: 08/19/81 


TO 


WORK WITH NEW 








000025 


* SOSLDR MODULE. 














r\ r\ r\ r\ r 

000026 


REP 






60 








000027 


* 














r\ n n r\ n o 

000028 


ENTRY 






BFM . INIT2 








r\ n n r\ n n 

000029 


* 














000030 


*EXTRN I. BASE. P ; ENTRY 


IN 


SOSLDR 








000031 


EXTRN 






SYSBANK 








000032 


EXTRN 






SXPAGE 








000033 


EXTRN 






CZPAGE 








r\ n n r\ o /i 

000034 


EXTRN 






SEEKDSK3 






■ T"NT HTCl/nLT / T\^T>T)7\ Ol MO/1 

, IN Ulbi\JJii/ LoKKAo lUo H 


000035 


EXTRN 






NMIDSBL 






; /D3RRA81084 


r\ n n r\ o ^ 

000036 


I . BASE . P EQU 






$2 








r\ n n r\ o ^ 

00003 / 


PAGE 














000038 


* 














000039 


* CONSTANTS 














000040 
















000041 


KERNEL. BASE EQU 






$B800 






; BASE ADDRESS OF SOS KERNEL 


000042 


ROMID EQU 






$A0 






;$F1B9 OF NEW ROM/D3RRA81084 


000043 


SLOT EQU 






$60 








000044 


BEGTRK EQU 






$9 








000045 


BEGSECT EQU 






$2 








000046 


ENDSECT EQU 






$6 








000047 
















000048 


* ZERO PAGE 














000049 
















000050 


TRACK EQU 






$99 








000051 


SECTOR EQU 






$98 








000052 


VOLUME EQU 






$9A 








000053 


KEY EQU 






$E0 






; THRU $E7 


000054 


PREV . K EQU 






KEY+$8 








000055 


XIDX EQU 






KEY+$9 








000056 


I EQU 






KEY+$A 






; & $b 


000057 
















000058 


* ROM ROUTINES 














000059 


* 














000060 


RDADR EQU 






$F1B9 






; REV1 


r\ n n r\ r t 


RDADRX EQU 






$F1BD 






; REVO 


n n n r\ r o 


* 














000063 


* HARDWARE LOCATIONS 














000064 


* 














000065 


E . REG EQU 






$FFDF 








000066 


B . REG EQU 






$FFEF 








000067 


MOTORON EQU 






$C089 








000068 


MOTOROFF EQU 






$C088 








000069 


PAGE 














000070 


REP 






60 








000071 


* 














000072 


* BFM.INIT2 ENTRY POINT 












000073 


* 














000074 


REP 






60 








000075 
















000076 


STATE DFB 






$FE 






; FF=1ST ENTRY, 0=2ND ENTRY, 
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000077 














000078 


BFM.INIT2 


EQU 








000079 






INC 




STATE 




000080 






BMI 




BFMI050 




000081 






JSR 




GETK 




000082 






LDA 




RETRY 




000083 






BEQ 




BADNEWS 




000084 






BCC 




BFMI050 




000085 






JSR 




NMIDSBL 




000086 






JSR 




DC 




000087 






INC 




STATE 




000088 


BFMI050 


CLC 








000089 






RTS 








000090 


BADNEWS 


SEC 








000091 






RTS 








000092 






PAGE 








000093 






REP 




60 




000094 


* 












000095 


* 


DECODE SUBROUTINE 








000096 


* 












000097 


* 


TO ENCODE: 










000098 


* 


E0 .E8 : 




INIT 


KEY & PREV.K 




000099 


* 


B84E:4C 64 


B8 - 


JUMPS AROUND INTERP 


S 3 BYTE 


000100 


* 


1A02. 1A03: 




NEW 


INTERP' S LOAD ADR (LO,HI 


000101 


* 


B81DG: 




JSR 


FROM MONITOR 




000102 


* 












000103 






REP 




60 




000104 


DC 


EQU 








000105 






LDA 




B . REG 




000106 






PHA 








000107 






LDA 




SYSBANK 




000108 






STA 




B . REG 




000109 






CLC 








000110 






LDA 




CZPAGE+I . BASE 


P 


000111 






ADC 




#3 




000112 






STA 




I 




000113 






PHA 








000114 






LDA 




CZPAGE+I . BASE 


P+l 


000115 






ADC 




#0 




000116 






STA 




1+1 




000117 






PHA 








000118 






LDA 




#0 




000119 






STA 




SXPAGE+I+1 




000120 


* 












000121 






LDY 




I 




000122 






LDA 




#0 




000123 






STA 




I 




000124 






STA 




PREV . K 




000125 


* 












000126 






JSR 




DCLOOP 




000127 


* 












000128 






PLA 








000129 






STA 




1 + 1 




000130 






PLA 








000131 






STA 




I 




000132 


* 












000133 






LDY 




#1 




000134 






LDA 




(I) ,Y 




000135 






STA 




CZPAGE+I .BASE 


P 


000136 






I NY 








000137 






LDA 




(I) ,Y 




000138 






STA 




CZPAGE+I .BASE 


P+l 


000139 


* 












000140 






LDY 




#2 




000141 






LDA 




#0 




000142 


DCA 


STA 




(I) ,Y 




000143 






DEY 








000144 






BPL 




DCA 




000145 






PLA 








000146 






STA 




B.REG 




000147 






RTS 








000148 






PAGE 








000149 






REP 




60 




000150 


* 












000151 


* 


DECODE LOOP SUBROUTINE 






000152 


* 












000153 






REP 




60 




000154 


DCLOOP 


EQU 




-k 




000155 






LDX 




#7 




000156 






CLC 








000157 






LDA 




KEY 





; I/O ERROR 



SAVE BANK REGISTER 



AND SWITCH TO SYSTEM BANK 



; FETCH LOADER'S INTERPRETER POINTER 



; ALIGN I PTR TO PAGE BOUNDARY 



RETRIEVE LOADER'S INTERPRETER POINTER 



; REPOSITION LOADER'S INTERPRETER POINTER (PUT ENCODE JMP HERE) 



WALK ON INTERPRETER'S FIRST INSTRUCTION (3 BYTES) 



; RESTORE BANK REGISTER (ENCODE JMP JUMPS TO HERE) 



SHIFT LEFT ONE BIT 
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000158 


BPL 


DC1 






000159 


SEC 








000160 


DC1 ROL 


KEY, X 






000161 


DEX 








000162 


BPL 


DC1 






000163 










000164 


DC2 TYA 








000165 


AND 


#7 






000166 


EOR 


#2 






000167 


TAX 








000168 


LDA 


KEY, X 






000169 


PHA 








000170 


AND 


#7 






000171 


TAX 








000172 


PLA 








000173 


CLC 








000174 


ADC 


PREV. K 






000175 


CLC 








000176 


ADC 


KEY, X 






000177 


STA 


PREV. K 






000178 


EOR 


(I) , Y 




; DECODE BYTE 


000179 


STA 


(I) , Y 




; AND PUT IT BACK 


000180 


I NY 








000181 


BNE 


DC2 






000182 


INC 


1+1 






000183 


LDA 


1+1 






000184 


CMP 


#<KERNEL . BASE 






000185 


BCC 


DCLOOP 






000186 


RTS 








000187 


PAGE 








000188 


REP 


60 






000189 










000190 


* GETKEY SUBROUTINE 








000191 










000192 


REP 


60 






000193 










000194 


RETRY DFB 


10+1 




;TEN RETRIES 


000195 


OURTRACK DS 


1 




,'CURRENT TRACK/D3RRA81084 


000196 










000197 


GETK EQU 


* 






000198 


LDX 


#7 






000199 


STX 


XIDX 






000200 


LDX 


♦ SLOT 






000201 


LDA 


MOTORON, X 




/ENSURE MOTOR STAYS ON 


000202 


LDA 


E.REG 




; SELECT 1MHZ, ROM 


000203 


ORA 


#$83 






000204 


STA 


E.REG 






000205 


-k 








000206 


* NOTE: THE SEEKDSK3 


ROUTINE HAS THESE /D3RRA8K 


84 


000207 


* CAVEATS: 1MHZ MODE 


, MOTOR IS ON, /D3RRA810 


84 




000208 


* DRIVE CURRENTLY SELECTED, ROM+I/O ENABLED! 


/D3RRA81084 


000209 










000210 


GETK010 LDA 


tBEGTRK 






000211 


STA 


OURTRACK 




; WHERE WE SEEK TO /D3RRA81084 


000212 


JSR 


SEEKDSK3 




; HAVE DISKDH SEEK FOR US /D3RRA81084 


000213 


GETK020 LDX 


♦ SLOT 






000214 


JSR 


DOREAD 




; FIND A SECTOR HEADER 


000215 


BCS 


IOERROR 




;=>RETRY IF BAD 


000216 


LDA 


SECTOR 




; WHERE ARE WE? 


000217 


CMP 


IBEGSECT 




; AT THE RIGHT PLACE? 


000218 


BNE 


GETK020 




;=>NO, GET THERE 


000219 










000220 


GETK100 LDX 


#1 






000221 


JSR 


WAIT 




; (X * 1284) + 15 MILISECONDS 


000222 


LDX 


XIDX 






000223 


LDA 


VOLUME 






000224 


STA 


KEY, X 






000225 


DEC 


XIDX 






000226 


BMI 


ENUFF 






000227 


INC 


OURTRACK 




;BUMP FOR NEXT TRACK /D3RRA81084 


000228 


LDA 


OURTRACK 




; WHERE TO GO /D3RRA81084 


000229 


LDX 


♦ SLOT 






000230 


JSR 


SEEKDSK3 




; DISKDH, PLEASE SEEK ME /D3RRA81084 


000231 


LDX 


#SLOT 






000232 


JSR 


DOREAD 






000233 


BCC 


GETK100 






000234 


BCS 


IOERROR 






000235 


-k 








000236 


ENUFF LDX 


♦ SLOT 






000237 


LDA 


MOTOROFF,X 






000238 


LDA 


E.REG 




; SELECT 2 MHZ, RAM 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 



WAIT 
Wl 



AND 

STA 

PAGE 

LDA 

CMP 

BNE 

LDA 

EOR 

BEQ 

SEC 

RTS 

LDA 
CLC 
RTS 



JSR 
BCS 
JMP 
JMP 



LDA 
CMP 
CLC 
BEQ 
SEC 
RTS 



DEC 
BEQ 
JMP 
JMP 



LDY 
DEY 
BNE 
DEX 
BNE 
RTS 

EQU 
IFNE 
FAIL 
FIN 



#$7C 
E.REG 

SECTOR 

#ENDSECT 

NOTPROT 

KEY 

KEY+1 

NOTPROT 



#0 



WHICHROM 
OLDREAD 
RDADR 
RDADRX 



RDADR 
IROMID 



RETRY 
ERR1 
GETK 
ENUFF 



#0 
Wl 
Wl 



; TRACKS SYNCED? 



;IF FIRST 2 VOLS ARE EQUAL 



TRY, TRY AGAIN 

I/O ERROR, CLEANUP AND EXIT 



$400 

ZZLEN-LENBFMI 
2, "SOSORG 



FILE IS INCORRECT FOR BFM.INIT2" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: BFM. INIT2 . SRC 

************************************************************************* 



End of File 



Lines: 292 Characters: 7017 
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FILE : " SOS. BUFMGR. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



******** 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: BUFMGR. SRC 

* ASSEMBLER : APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
"SOS 1.1 BUFFER MANAGER" 
SOSORG, 6,1,254 



SBTL 
REL 

INCLUDE 
*ORGBUFMG EQU $F552 
*LENBUFMG EQU $31C 

ORG 

ZZORG EQU 
MSB 
REP 



ORGBUFMG 



OFF 

60 

COPYRIGHT (C) APPLE COMPUTER INC. 1980 

* ALL RIGHTS RESERVED 
REP 60 

* 

* BUFFER MANAGER (VERSION =1.10 ) 

* (DATE = 8/04/81) 
* 

* THIS MODULE IS RESPONSIBLE FOR CREATING AND RELEASING BUFFERS 

* FOR BOTH THE BLOCK FILE MANAGER AND, LATER, DEVICE HANDLERS 

* THE BUFFER MANAGER CREATES BUFFERS BY REQUESTING MEMORY 

* SEGMENTS FROM THE MEMORY MANAGER, AND RELEASES THEM VIA SAME. 

* THE PRIMARY DATA STRUCTURE IN THIS MODULE IS THE BUFFER TABLE. 



REP 

* 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

* 

EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

* 

EXTRN 
EXTRN 
EXTRN 

* 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

PAGE 

REP 

* 

* DATA DECLARATIONS 
* 

REP 

* 

Z . REG EQU 



60 

REQBUF 

REQFXBUF 

GETBUFADR 

CHKBUF 

RELBUF 

MMGR 
SXPAGE 
CZPAGE 
CXPAGE 

SYSERR 
SERR 

OUTOFMEM 

BUFTBLFULL 

BADSYSBUF 

SYSDEATH 

BADBUFNUM 

BADBUFSIZ 

BUF.CNT 
PGCT . T 
XBYTE.T 
BUFREF 

60 



60 

SFFD0 



* MEMORY MGMT CALL FARM LOCATIONS ON SOS ZPAGE 



M.TPARMX 

REQCODE 
* 

FINDSEG 
SRCHMODE 
F. ID 
F . PGCT 
F . PGCTX 
F . BASE 
F . BASEX 
F.LIM 



EQU 
EQU 

EQU 

EQU 

EQU 

EQU 

DS 

EQU 

DS 

EQU 



$60 

M.TPARMX+$0 
$1 

M.TPARMX+$1 
M.TPARMX+$2 
M.TPARMX+$3 

2 

M.TPARMX+$5 

2 

M.TPARMX+$7 



FIRST ADR OF MEM SYS CALL PARMS ON SOS ZPAGE 



; TEMP LOC FOR F.PGCT PARM 
; TEMP LOC FOR F . BASE PARM 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



F.LIMX 

F.NUM 

F.NUMX 

RELSEG 
RLS.NUM 



DS 

EQU 

DS 

EQU 
EQU 



M.TPARMX+$9 

1 



$5 

M.TPARMX+$1 



; TEMP LOC FOR F.LIM FARM 
; TEMP LOC FOR F.NUM FARM 



REQBUF DATA DECLARATIONS 



RQB . PGCT 
RQB.BNUM 



DS 
DS 



REQFXBUF DATA DECLARATIONS 



RQFB . PGCT 
RQFB . BNUM 
MAXPGCT 
F.TPARMX 
OPEN. LIST 



DS 

DS 

EQU 

EQU 

EQU 



1 
1 

64 
$A0 

F.TPARMX+$5 



REQUESTED PAGE COUNT 

BUFFER NUMBER (FM GETFREE CALL) 



REQUESTED PAGE COUNT 

BUFFER NUMBER (FM GETFREE CALL) 

MAX BUFSIZE=16K 

FIRST ADR OF FILE SYS CALL FARMS ON SOS ZPAGE 
LOC OF OPEN. LIST FARM (OPEN SYS CALL) 



* BUFCOMPACT DATA DECLARATIONS (SOURCE ALSO USED BY CHKBUF) 



BUFC . BNUM 

SOURCE 

DEST 



BUFFER TABLE 



DS 

EQU 

EQU 

PAGE 

REP 



M.TPARMX+$10 
M.TPARMX+$12 

60 



; BUF# OF LOWEST BUFFER IN BUF.TBL 
; & $11 
; & $13 



* THE BUFFER TABLE CONSISTS OF "CNT"-1 ENTRIES (1 TO "CNT"-1) . 

* EACH ENTRY IS "SIZ" BYTES IN LENGTH. THE "PGCT" FIELD 

* CONTAINS 3 SUBFIELDS. BIT 7 IS THE "FREE" FLAG (0=ACTIVE, 1=FREE) 

* BIT 6 IS THE "FIXED" FLAG (0=FLOATING BUFFER, 1=FIXED BUFFER) 

* BITS 5 THRU CONTAIN THE PAGE COUNT OF AN "ACTIVE" ENTRY 

* (0=>1 PAGE,63=>64 PAGES DECIMAL). THE "XBYTE" FIELD CONTAINS 

* THE PROPER XBYTE OF AN "ACTIVE" ENTRY. THE "ADRH" FIELD 

* CONTAINS THE HIGH BYTE OF THE BUFFER ADDRESS. IF THE 

* BUFFER ENTRY IS "FLOATING", THEN THE "SEG" FIELD CONTAINS THE 

* SEGMENT NUMBER AND THE LOW BYTE OF THE BUFFER ADDRESS IS 

* ASSUMMED TO BE ZERO. 

* THUS, THE FOLLOWING RESTRICTIONS APPLY TO BUFFERS: 



(1) 
(2) 



(3) 
(4) 



(5) 



MAXIMUM BUFFER LENGTH IS 64 PAGES (16K) 

"FLOATING" BUFFERS ALWAYS BEGIN ON A PAGE BOUNDARY 

"FIXED" BUFFERS DO NOT. 

BUFFERS ARE ALWAYS AN INTEGRAL NUMBER OF PAGES IN LENGTH 

BUFFERS ALWAYS RESIDE IN THE 32K BANK MEMORY REGION, 

A LIMITATION OF FIND. SEG (MEMORY MANAGER) 

MAXIMUM NUMBER OF BUFFERS = 16; ENTRY IS NOT USED. 





REP 


60 


* BUFFER TABLE 






BUF. SIZ 


EQU 


5 


BUF.CNT 


EQU 


17 


BUF.TBL 


DS 


BUF. SIZ*BUF.CNT 


PGCT . T 


EQU 


BUF.TBL 


XBYTE. T 


EQU 


PGCT.T+BUF.CNT 


ADRH . T 


EQU 


XBYTE . T+BUF . CNT 


SEG.T 


EQU 


ADRH . T+BUF . CNT 


ADRL . T 


EQU 


SEG.T 


CHK.T 


EQU 


ADRL. T+BUF. CNT 


ISFIXED 


EQU 


$40 


IS FREE 


EQU 


$80 



* BUFFER REFERENCE TABLE 

* FIRST BYTE IS COUNT, FOLLOWED BY "COUNT" BUFFER #S. 

* THIS TABLE IS A LIST OF ALL BUFFERS REFERENCED DURING ONE 

* SOS SYSTEM CALL. BUFFER #S ARE ADDED TO THIS LIST BY 

* GETBUFADR AND REMOVED BY CHKSUM. 



BUFREF . CNT 

BUFREF 

ZPAGEX 



EQU 

DS 

DS 

PAGE 
REP 



17 

BUFREF. CNT 

1 

60 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



* REQBUF 

* INPUT : PAGE . CNT (A) 

* OUTPUT: BUFNUM (A) 

* ERROR: "BUFFER TABLE FULL" - SYSERR 

* "OUT OF MEMORY" - SYSERR 

* "BAD BUFFER SIZE" - SYSDEATH 

* THIS ROUTINE FINDS A FREE ENTRY IN THE BUFFER TABLE 

* AND THEN CALLS FIND . SEG (MMGR) TO OBTAIN MEMORY FOR IT. 

* IF MEMORY IS FOUND THEN THE BUFFER ENTRY IS MARKED "ACTIVE" 

* AND THE BUFFER INFO IS INSERTED INTO THE ENTRY 



REQBUF 



REP 



EQU 



60 



* IF REQUESTED PGCT OUT OF BOUNDS THEN FATAL ERR 



TAY 

BEQ 
CPY 
BCS 
STY 



RQB . ERR2 
IMAXPGCT+l 
RQB.ERR2 
RQB . PGCT 



* FIND FREE ENTRY IN BUF.TBL 



JSR 

BCS 
STX 



GETFREE 
RQB. ERR 
RQB.BNUM 



; FATAL ERR, INVALID Bli'ltK Si/L 



FATAL ERR, INVALID BUFFER SIZE 
SAVE PAGE COUNT 



ERR, BUFFER TABLE FULL 



* FIND PGCT*256 BYTES OF FREE MEMORY 



LDA 
JSR 
BCS 



RQB . PGCT 
FSEG 
RQB.ERR1 



; ERR, OUT OF MEMORY 
INSERT PGCT, XBYTE, ADRH, SEG#, CHK BYTE IN BUF . TBL (BUF#) 



RQB010 



RQB . ERR 

* 

RQB . ERR1 
RQB.ERR2 



LDX 
DEC 
LDA 
STA 

LDX 
LDY 
JSR 
CPX 
BNE 
LDX 
TXA 
LDX 
STA 
TYA 
STA 

LDA 
STA 

LDA 
STA 

TXA 
CLC 
RTS 



LDA 
JSR 

LDA 
JSR 

LDA 
JSR 
PAGE 
REP 



RQB.BNUM 
RQB . PGCT 
RQB . PGCT 
PGCT.T,X 

F . BASEX 

F.BASEX+1 

CNVRT.ADR 

#58F 

RQB010 

#$7F 

RQB . BNUM 
XBYTE. T,X 

ADRH . T , X 

F.NUMX 
SEG.T,X 

#0 

CHK.T,X 



PAGE COUNT FIELD 



; XBYTE S ADRH FIELDS 



IF XBYTE-$8F THEN XBYTE :=$7F 



; SEG# FIELD 



INIT CHECK BYTE TO NULL 



RETURN BUF# 
NORMAL EXIT 



tBUFTBLFULL 
SYSERR 



IOUTOFMEM 
SYSERR 



tBADBUFSIZ 
SYSDEATH 



60 



* REQFXBUF 

* INPUT: PAGE. CNT (A) 
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000239 




OUTPUT: BUFNUM (A) 














000240 




ERROR: "BUFFER TABLE 


FULL" 




SYSERR 




000241 


* 


"BAD SYSTEM. 


BUF 


PARM ADDRESS 




SYSERR 




000242 


* 


"BAD BUFFER 


SIZE 






SYSDEATH 


000243 


* 
















000244 


* 


THIS ROUTINE COMPUTES 


THE ACTUAL BUFFER ADDRESS 


IN THE OPEN 


000245 


* 


CALL (PARM "OPEN. LIST 


), 


AND ALLOCATES A 


BUFFER 


ENTRY FOR IT. 


000246 




NOTE: THE SYSBUF PARAMETER MUST BE 


AN EXTENDED 


INDIRECT PTR! ! 


000247 


* 
















000248 




REP 






60 








000249 


* 
















000250 


REQFXBUF EQU 






* 








000251 


















000252 




IF REQUESTED PGCT OUT 


OF 


BOUNDS THEN 


FATAL ERR 




000253 


















000254 




TAY 














000255 




BEQ 






RQFB . ERR2 






FATAL ERR, BAD BUFFER SIZE 


000256 




CPY 






IMAXPGCT+l 








000257 




BCS 






RQFB . ERR2 






FATAL ERR, BAD BUFFER SIZE 


000258 


















000259 




STY 






RQFB. PGCT 






SAVE PAGE COUNT 


000260 


















000261 




GET A FREE BUFFER ENTRY 










000262 


















0002 63 




JSR 






GETFREE 








0002 64 




BCS 






RQFB . ERR 






ERR, BUFFER TABLE FULL 


000265 




STX 






RQFB . BNUM 






SAVE BUF# 


000266 


















000267 




FETCH SYSTEM. BUF PARAMETER IN OPEN SYSTEM CALL 




000268 


















000269 




LDY 






#3 








000270 




LDA 






(OPEN . LIST) 


, Y 






000271 




BNE 






RQFB . ERR1 






ERR, SYSBUF ADR 


000272 




DEY 














000273 




LDA 






(OPEN . LIST) 


, Y 






000274 




TAY 














000275 




LDA 






CXPAGE+1 , Y 








000276 




BPL 






RQFB . ERR1 






ERR, SYSBUF ADR 


000277 




CMP 






#$8F 








000278 




BCS 






RQFB . ERR1 






ERR, SYSBUF ADR 


000279 


* 
















000280 


* 


INSERT XBYTE, ADRH, 


ADRL 


, PGCT, CHK 


3YTE 


INTO BUF.TBL (BUF#) 


000281 


* 
















000282 




LDX 






RQFB . BNUM 








000283 




STA 






XBYTE. T,X 








000284 


* 
















000285 




LDA 






CZPAGE+1,Y 








000286 




BEQ 






RQFB.ERR1 






ERR SYSBUF ADR 


r\ n n o o -i 

00028 7 




CMP 






#$81 






CHECK FOR ADDRESS COMPENSATION 


000288 




BCC 






RQFB010 








000289 




INC 






XBYTE. T,X 








000290 




AND 






#$7F 








000291 


RQFB010 STA 






ADRH . T , X 








000292 


* 
















000293 




LDA 






CZPAGE, Y 








000294 




STA 






ADRL . T , X 








000295 


* 
















000296 




DEC 






RQFB. PGCT 








000297 




LDA 






RQFB. PGCT 








000298 




ORA 






tISFIXED 








0002 99 




STA 






PGCT.T,X 






BUFFER ENTRY NOW "ACTIVE" 


000300 


* 
















000301 




LDA 






#0 






INIT CHECK BYTE TO NULL 


000302 




STA 






CHK.T,X 








000303 


* 
















000304 




TXA 












RETURN BUF# 


r\ n n o n c 

000305 




CLC 














000306 




RTS 












NORMAL EXIT 


000307 


* 
















000308 


RQFB . ERR LDA 






IBUFTBLFULL 








000309 




JSR 






SYSERR 








000310 


* 
















000311 


RQFB . ERR1 LDA 






#BADSYSBUF 








000312 




JSR 






SYSERR 








000313 


* 
















000314 


RQFB . ERR2 LDA 






IBADBUFSIZ 








000315 




JSR 






SYSDEATH 








000316 




PAGE 














000317 




REP 






60 








000318 


* 
















000319 


* 


GETBUFADR 
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000320 
















000321 




INPUT : BUFNUM (A) 












000322 


* 


ZPAGELOC (X) 












000323 


* 


OUTPUT: BUF ADR AT: 


X,X+1 & SXPAGE+1, 


X 








000324 


* 


PAGE . CNT (A) 












000325 


* 


BUFNUM (Y) 












000326 


* 














000327 




ERROR: "BADBUFNUM" 


SYS DEATH 










000328 


* 














000329 




REP 


60 










000330 


* 














000331 


GETBUFADR EQU 












000332 
















000333 




IF BUF# OUT OF RANGE 


OR BUF.TBL (BUF#) 


= 


TREE 






000334 




THEN FATAL ERR 












000335 


* 














000336 




TAY 












000337 




BEQ 


GTBF. ERR 








BUF#-0, FATAL ERR 


000338 




CPY 


#BUF . CNT 










000339 




BCS 


GTBF. ERR 








BUF# > MAX BUF TABLE ENTRY, FATAL ERR 


000340 




LDA 


PGCT.T,Y 










000341 




BMI 


GTBF. ERR 








BUF ENTRY MARKED "FREE", FATAL ERR 


000342 


* 














000343 


* 


OTHERWISE, CONSTRUCT 


BUFFER PTR ON SOS 


ZPAGE 




000344 


* 














000345 




JSR 


GETBUFADR1 










000346 
















000347 




IF BUFFER NOT PREVIOUSLY REFERENCED ON 


THIS 


SOS 


CALL AND CHECK BYTE <> 


000348 


* 


THEN COMPARE FIRST BYTE OF BUFFER 


WITH CHECK 


BYTE IN BUFFER TABLE. 


000349 


* 


IF NO MATCH 


THEN KILL SYSTEM. 










000350 


* 














000351 




STX 


ZPAGEX 










000352 




TYA 












000353 




LDX 


BUFREF 










000354 




BEQ 


GTBF020 






• 


BUFREF EMPTY 


000355 


* 














000356 


GTBF010 CMP 


BUFREF, X 






• 


SEARCH FOR PREVIOUS REFERENCE 


000357 




BEQ 


GTBF030 






• 


MATCH FOUND 


000358 




DEX 












000359 




BNE 


GTBF010 










000360 


* 














000361 


GTBF020 INC 


BUFREF 








LOG BUF # IN BUFREF TABLE 


n n A n r O 

000362 




LDX 


BUFREF 










000363 




CPX 


fBUFREF . CNT 










000364 




BCS 


GTBF. ERR 








BUFREF TABLE OVFLOW, KILL SYSTEM 


000365 




STA 


BUFREF, X 










000366 


* 














000367 




LDA 


CHK . T, Y 










000368 




BEQ 


GTBF030 








NO CHECK BYTE, SKIP CHECK 


000369 




LDX 


ZPAGEX 










000370 




LDA 


($0,X) 








COMPARE FIRST BYTE OF BUFFER 


000371 




CMP 


CHK . T, Y 








WITH CHECK BYTE IN BUF TABLE 


000372 




BNE 


GTBF. ERR 








NO MATCH, PULL THE PLUG 


000373 
















000374 


* 


RETURN PAGE. CNT TO CALLER 










000375 


* 














000376 


GTBF030 LDA 


PGCT.T,Y 










000377 




AND 


#$3F 








STRIP OFF FREE, FIXED FLAGS 


000378 




CLC 












000379 




ADC 


#1 










000380 


* 














000381 




CLC 












000382 




RTS 












000383 


* 














000384 


* 














000385 


GTBF . ERR LDA 


IBADBUFNUM 










r\ n r\ o o r 

000386 




JSR 


SYSDEATH 










000387 


* 














000388 


* 














000389 




REP 


60 










000390 


* 














000391 




GETBUFADR1 












000392 
















000393 


* 


INPUT: PGCT.T(BUF#) 


(A) 










000394 


* 


ZPAGELOC 


(X) 










000395 


* 


BUF# 


(Y) 










000396 


* 


ERROR: NONE . 












000397 


* 














000398 


* 


EXTRACTS THE BUFFER 


POINTER FROM THE 


BUFFER 


TABLE AND 


000399 




PLACES IT ON ZERO PAGE AT X, X+l S SXPAGE+1, 


X 




000400 


* 
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000401 






REP 


60 




000402 












000403 


GETBUFADR1 


EQU 


* 




r\ n n a n a 
00U404 






AND 


#$40 




000405 






BNE 


GTB1010 




000406 






LDA 


#0 


; "FIXED" BUFFER 


000407 






BEQ 


GTB1020 


; ALWAYS TAKEN 


000408 


GTB1010 




LDA 


ADRL . T , Y 


; "FLOATING" BUFFER 


000409 


GTB1020 




STA 


0, X 




000410 






LDA 


ADRH . T , Y 




000411 






STA 


1, X 




000412 






LDA 


XBYTE.T, Y 




000413 






ORA 


#$80 


; ENSURE $7F->$8F 


000414 






STA 


SXPAGE+1,X 




000415 






RTS 






000416 






PAGE 






000417 






REP 


60 




000418 












000419 


* CHKBUF 










000420 












000421 


* CHECK BUFFER. 


FETCHES THE FIRST BYTE OF EACH 


BUFFER 


000422 


* REFERENCED DURING THE 


CURRENT SYSTEM CALL AND 


PLACES IT 


000423 


* IN CHK.T (BUF#) 








000424 












000425 


* INPUT : 


BUFREF TABLE 






000426 




BUFFER TABLE 






000427 


* OUTPUT : 


EMPTY 


BUFREF 


TABLE 




000428 




BUFFER TABLE' 


S CHECK BYTES UPDATED 




000429 




Z REG 


=$18 






000430 


* ERROR : 


NONE. 








000431 












000432 






REP 


60 




000433 












000434 


CHKBUF 




EQU 


* 




000435 






LDY 


BUFREF 


; PICK UP COUNT 


000436 






BEQ 


CHKB. EXIT 


; EXIT IF BUFREF EMPTY 


000437 


* 










000438 






LDA 


#$18 


; ENSURE SOS ZPAGE SWITCHED IN 


000439 






STA 


Z .REG 




000440 












000441 


* UPDATE 


THE CHECK BYTE 


OF EACH BUF# IN THE BUFREF TABLE 


000442 












000443 


CHKB010 




LDX 


#>SOURCE 




000444 






LDA 


BUFREF, Y 




000445 






TAY 






000446 






LDA 


PGCT.T,Y 




000447 






JSR 


GETBUFADR1 


; PUT BUF#S ADR ON ZPAGE 


000448 






LDA 


($0,X) 




000449 






STA 


CHK.T, Y 




000450 






DEC 


BUFREF 




000451 






LDY 


BUFREF 




000452 






BNE 


CHKB010 


; IF COUNTOO THEN PROCESS NEXT 


000453 












000454 


CHKB . EXIT 




RTS 




; BUFREF TABLE IS EMPTY (COUNT= 


000455 






PAGE 






000456 






REP 


60 




000457 












000458 


* RELBUF 










000459 












0004 60 


* INPUT: 


BUFNUM (A) 






r\ n r\ a r -i 

0004 61 


* OUTPUT: 


NONE. 








0004 62 


* ERROR: 


"BADBUFNUM" SYSDEATH 




0004 63 












0004 64 


* THIS ROUTINE RELEASES 


THE BUFFER ENTRY, CALLS 


FIND . SEG TO 


0004 65 


* RELEASE 


THE CORRESPONDING MEMORY SEGMENT, AND 


CALLS 


0004 66 


* BUFCOMPACT TO 


PERFORM 


BUFFER COMPACTION. 




r\ n n a r-i 

0004 6/ 












0004 68 






REP 


60 




000469 












000470 


RELBUF 




EQU 






000471 












000472 


* IF BUF# 


OUT OF RANGE 


OR BUF.TBL (BUF#) =FREE 




000473 


* THEN FATAL ERR 






000474 












000475 






TAY 






000476 






BEQ 


RLBF . ERR 




000477 






CPY 


#BUF.CNT 




000478 






BCS 


RLBF . ERR 




000479 






LDA 


PGCT.T,Y 




000480 






BMI 


RLBF . ERR 




000481 


* 
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nnn yi o O 

0UU4o2 




MARK BUF.TBL(BUF#)= 


FREE 


000483 










000484 




ORA 




fISFREE 


000485 




STA 




PGCT . T , Y 


000486 










000487 




IF BUF.TBL (BUF#) —FIXED 


THEN EXIT 


n n n a o o 

000488 










000489 




AND 




#ISFIXED 


0004 90 




BNE 




RLBF . EXIT 


0004 91 










000492 




OTHERWISE CALL MEMORY 


^IGR TO RELEASE BUFFER ' S MEMORY SEG 


0004 93 










000494 




LDA 




#RELSEG 


0004 95 




STA 




REQCODE 


000496 










0004 97 




LDA 




SEG . T, Y 


0004 98 




STA 




RLS . NUM 


0004 99 


* 








000500 




JSR 




MMGR 


000501 




BCS 




RLBF. ERR ; ANY ERR IS FATAL 


n n n it n o 

000502 


* 








n n n it n o 

000503 


* 


AND COMPACT BUFFERS 






000504 


* 








000505 




JSR 




BUFCOMPACT 


000506 


* 








000507 


RLBF . EXIT CLC 






000508 




RTS 






u(ju5uy 










000510 


RLBF . ERR LDA 




fBADBUFNUM 


000511 




JSR 




SYSDEATH 


n n n c i o 

000512 




PAGE 






000513 




REP 




60 


n n n c t /i 

000514 


* 








000515 


* 


BUFCOMPACT 






000516 










000517 




THIS ROUTINE IS RESPONSIBLE FOR PACKING ALL SOS BUFFERS UP 


000518 




AGAINST THE HIGHEST 


AVAILABLE FREE MEMORY . COULD IMPROVE THE 


000519 




EFFICIENCY OF THIS 


COMPACTION CYCLE BY NOT RELEASING THE "RELEASED" BUFFER 


000520 


* 


UNTIL IT IS KNOWN THAT 


ANOTHER BUFFER WILL NOT BE MOVED INTO ITS LOC . 


000521 


* 








n n n it o o 

000522 




REP 




60 


000523 


* 








000524 


BUFCOMPACT EQU 






000525 


* 








000526 




FIND THE FLOATING BUFFER IN BUF.TBL WITH THE LOWEST ADDRESS. 


000527 










000528 


BUFC010 LDY 




#0 


000529 




LDX 




#BUF.CNT-1 


n n n it o n 

000530 


* 








000531 


BUFC020 LDA 




PGCT.T,X 


000532 




AND 




#$C0 ; STRIP OUT PAGE COUNT BITS 


nnnoo 

000533 




BNE 




BUFC030 


n n n it o /i 

000534 


* 








000535 




LDA 




ADRH . T , X 


000536 




CMP 




ADRH . T , Y 


000537 




LDA 




XBYTE . T, X 


000538 




SBC 




XBYTE.T, Y 


000539 




BCS 




BUFC030 


000540 


* 








000541 




TXA 




; SMALLER BUFFER FOUND, SAVE IN 


000542 




TAY 






000543 


* 








000544 


BUFC030 DEX 






000545 




BNE 




BUFC020 


000546 


* 








000547 


* 


IF NO BUFFER FOUND 


THEN DONE 


000548 


* 








000549 




TYA 










BNE 




BUFC040 


000551 




JMP 




BUFC.EXIT 


000552 


BUFC040 STY 




BUFC.BNUM ; OTHERWISE SAVE BUF# IN Y REG. 


000553 


* 








000554 


* 


CALL FIND. SEG : FINDS 


HIGHEST AVAILABLE FREE MEMORY 


000555 


* 








000556 




LDA 




PGCT.T,Y 


000557 




AND 




#$3F ; STRIP OUT "FREE", "FIXED" FLAGS 


000558 




CLC 






000559 




ADC 




#1 


000560 




JSR 




FSEG 


000561 




BCS 




BUFC.EXIT ; DONE IF NO FREE SEG FOUND 


000562 


* 









« Apple /// Computer » SOS 1.3 Source Code Listing • 22 of 255 




000563 




CONVERT BASE 


. BKPG TO BUFFER ADR 


000564 












000565 








LDX 


F . BASEX 


000566 








LDY 


F.BASEX+1 


000567 








JSR 


CNVRT.ADR 


000568 








STX 


F . BASEX 


000569 








STY 


F.BASEX+1 


000570 












000571 




IF 


NEW SEG ' S 


BASE < CURRENT BUFFER'S BASE ADR 


000572 












000573 








LDY 


BUFC . BNUM 


000574 








LDA 


ADRH . T , Y 


000575 








STA 


SOURCE +1 


000576 








CMP 


F . BASEX+1 


000577 








LDA 


XBYTE . T, Y 


000578 








STA 


SXPAGE+SOURCE+1 


000579 








SBC 


F . BASEX 


000580 








BCS 


BUFC . EXIT1 


000581 












000582 




MOVE DATA FROM CURRENT 


BUFFER TO NEW BUFFER 


000583 












000584 








LDX 


F . BASEX 


000585 








STX 


SXPAGE+DEST+1 


000586 








LDY 


F . BASEX+1 


000587 








STY 


DEST+1 


000588 








LDA 


#0 


000589 








STA 


SOURCE 


000590 








STA 


DEST 


000591 


* 










000592 








TAY 




000593 








LDX 


F . PGCTX 


000594 


BUFC200 


LDA 


(SOURCE) , Y 


000595 








STA 


(DEST) , Y 


000596 








DEY 




000597 








BNE 


BUFC200 


000598 








INC 


SOURCE +1 


000599 








INC 


DEST+1 


000600 








DEX 




000601 








BNE 


BUFC200 


000602 


* 










000603 


* 


UPDATE BUF.TBL (BUF#) 




000604 


* 










000605 








LDY 


BUFC . BNUM 


000606 








LDA 


F . BASEX 


000607 








STA 


XBYTE . T, Y 


000608 








LDA 


F . BASEX+1 


000609 








STA 


ADRH . T , Y 


000610 


* 










000611 








LDX 


SEG . T, Y 


000612 








LDA 


F . NUMX 


000613 








STA 


SEG . T, Y 


000614 












000615 




AND RELEASE 


OLD MEMORY 


SEGMENT 


000616 












000617 








STX 


RLS . NUM 


000618 








LDA 


#RELSEG 


000619 








STA 


REQCODE 


r\ r\ r\ r n r\ 

000620 








JSR 


MMGR 


000621 








BCS 


BUFC . ERR 


000622 


* 










000623 








JMP 


BUFC010 


000624 












000625 












000626 


BUFC 


EXIT1 


LDX 


F.NUMX 


000627 








STX 


RLS . NUM 


000628 








LDA 


IRELSEG 


000629 








STA 


REQCODE 


000630 








JSR 


MMGR 


000631 








BCS 


BUFC. ERR 


000632 


* 










000633 


BUFC 


EXIT 


LDA 


#0 


000634 








STA 


SERR 


000635 








CLC 




000636 








RTS 




000637 


* 










000638 


* 










000639 


BUFC 


ERR 


LDA 


fBADBUFNUM 


000640 








JSR 


SYSDEATH 


000641 








PAGE 




000642 








REP 


60 


000643 


* 











; BASE BANK 
; BASE PAGE 



; XBYTE 
; ADRH 



MOVE LOOP 



REPEAT COMPACTION CYCLE 



DONE, 

RELEASE SEG BEFORE EXIT 



MASK OUT ANY ERROR FROM MEMORY MGR 
NORMAL EXIT 
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000644 


* FSEG 






r\ n r\ r a c 

000645 








r\ n r\ r~ a r 

000646 


* INPUT : PAGE . CNT (A) 






000647 


* OUTPUT: PAGE . CNT (A) 


UNCHANGED IF FIND. SEG SUCCESSFUL 


000648 


* ERROR: CARRY SET "UNABLE TO FIND MEMORY SEG OF 


PAGE.CNT*256 BYTES" 


r\ r\ r\ r~ a n 

000649 








000650 


* THIS ROUTINE BUILDS 


THE PARAMETERS FOR A FIND. SEG SYSTEM CALL 


000651 


* AND THEN CALLS THE MEMORY MANAGER . 




000652 








000653 


REP 


60 




000654 








000655 


FSEG EQU 


* 




000656 








00065 / 


* SETUP INPUT PARAMETERS FOR FIND. SEG CALL 




000658 








000659 


STA 


F.PGCTX 




000660 


LDA 


IFINDSEG 




000661 


STA 


REQCODE 




000662 


LDA 


#2 




000663 


STA 


SRCHMODE 




r\ n r\ r~ r a 

000664 


LDA 


#4 




000665 


STA 


F. ID 




000666 








r\ n r\ r r 

00066 / 


* SETUP OUTPUT PARAMETER ADRESSES 




r\ n n /~ ^ o 

000668 








000669 


LDA 


#>F . PGCTX 




000670 


STA 


F . PGCT 




000671 


LDA 


#<F . PGCTX 




000672 


STA 


F . PGCT+1 




000673 


LDA 


#>F.BASEX 




t~\ n r\ r~ ~t a 

000674 


STA 


F . BASE 




000675 


LDA 


#<F.BASEX 




r\ r\ r\ /~ "~i f~ 

000676 


STA 


F.BASE+1 




t~\ t~\ r\ r "i -i 

000677 


LDA 


#>F.LIMX 




000678 


STA 


F.LIM 




000679 


LDA 


#<F . LIMX 




000680 


STA 


F.LIM+1 




000681 


LDA 


#>F.NUMX 




000682 


STA 


F.NUM 




r\ n n /~ o o 

000683 


LDA 


#<F.NUMX 




r\ n n n /i 

000684 


STA 


F.NUM+1 




000685 








r\ n n n 

000686 


LDA 


#0 




000687 


STA 


F.PGCTX+1 




000688 


STA 


SXPAGE+F. PGCT+1 




000689 


STA 


SXPAGE+F.BASE+1 




000690 


STA 


SXPAGE+F. LIM+1 




000691 


STA 


SXPAGE+F. NUM+1 




r\ n r\ r~ n o 

000692 








000693 


JSR 


MMGR 




r\ n n n /i 

000694 


LDA 


F.PGCTX 




000695 








000696 


RTS 




EXIT. CARRY SET->ERR 


000697 


PAGE 






000698 


REP 


60 




000699 








000700 


* GETFREE 






000701 








r\ n n n ^ 

000702 


* INPUT: NONE 






r\ n n n n o 

000703 


* OUTPUT: BUF# (X) 






000704 


* ERROR: "BUFTBLFULL" 


SYSERR 




000705 








000706 


* THIS ROUTINE SEARCHES THE BUFFER TABLE, LOOKING 


FOR A FREE 


000707 


* ENTRY. IF FOUND, IT 


RETURNS THE BUFFER NUMBER, 


ELSE ERROR. 


000708 








r\ n n "i n rs 

000709 


REP 


60 




000710 








000711 


GETFREE EQU 






000712 


LDX 


#BUF.CNT-1 




fin mi o 

00071j 


G FRO 10 LDA 


PGCT.T,X 




000714 


BMI 


GFR. EXIT 


FREE ENTRY FOUND 


000715 


DEX 






000716 


BNE 


GFR010 




000717 








000718 


LDA 


#BUFTBLFULL 




000719 


JSR 


SYSERR 


ERR EXIT 


000720 








000721 


GFR. EXIT CLC 






000722 


RTS 




NORMAL EXIT 


000723 


PAGE 






000724 


REP 


60 
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000725 
000726 
000727 
000728 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 
000771 
000772 
000773 
000774 
000775 
000776 
000777 
000778 
000779 
000780 
000781 
000782 
000783 
000784 
000785 
000786 
000787 
000788 
000789 



* CNVRT.ADR 
* 

* INPUT: BANK VALUE (X) 

* PAGE VALUE (Y) 

* OUTPUT: XBYTE (X) 

* ADRH (Y) 

* ERROR: NONE. 
* 

* THIS ROUTINE CONVERTS A BASE . BKPG PARM (MMGR) INTO A 

* VIRTUAL POINTER 
* 

REP 60 

CNVRT.ADR EQU * 

* 

* IF PAGE <> 520 THEN GOTO L2 



CPY 
BNE 



#520 
CNVA020 



* IF BANK <> THEN GOTO LI 



* XBYTE-$8F 

* ADRH : -PAGE 



TXA 
BNE 



LDX 
BMI 



CNVA010 



#$8F 

CNVA.EXIT 



* LI: XBYTE := (BANK- 1) ORA #$80 

* ADRH:=#$80 



CNVA010 ORA 
TAX 
DEX 
LDY 
BMI 

* L2: XBYTE :=BANK ORA #$80 

* ADRH : -ADRH-#$20 



#$80 



#$80 

CNVA.EXIT 



CNVA020 



CNVA.EXIT 



ZZEND 
ZZLEN 



TXA 
ORA 
TAX 
SEC 
TYA 
SBC 
TAY 

RTS 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



#$80 



#$20 



ON 



ZZEND-ZZORG 
ZZLEN-LENBUFMG 
2, "SOSORG 



FILE IS INCORRECT FOR BUFMGR" 



****************** 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: BUFMGR . SRC 

************************************************************************* 



End of File 



Lines: 789 Characters: 18954 
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FILE: "SOS. C.BI2 .TEXT" 



000001 



************************************************************************* 
000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: C.BI2 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 : TABS 17,23,40 

000007 ::PR#1,L58 132N 

000008 SL4:DR1:ASM BFM. INIT2 . SRC, BFM. INIT2 . OBJ, 6, 1 
000009 

000010 ************************************************************* 

000011 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C.BI2 

000012 ************************************************************************* 
End of File 



Lines : 12 Characters : 523 
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FILE: "SOS. C.S. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: C.S 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

: TABS 17,23,40 
::PR#1,L58 132N 

SL4 : DR2 : ASM BUFMGR. SRC, BUFMGR. OBJ, 6, 1 
SL4 : DR2 : ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 
END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C.S 

************************************************************************* 



End of File — Lines: 14 Characters: 555 
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FILE: "SOS -C3 .TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: C3 

000004 * ASSEMBLER : APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 : TABS 17,23,40 

000007 ::PR#1,L58 132N 

000008 SL4:DR1:ASM SOSLDR. SRC, SOSLDR.OBJ, 6, 1 

000009 SL4:DR2:ASM BUFMGR. SRC, BUFMGR. OBJ, 6, 1 

000010 SL4:DR2:ASM MEMMGR. A. SRC,MEMMGR. OBJ, 6, 1 

000011 END 
000012 

000013 ************************************************************************* 

000014 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C3 

000015 ************************************************************************* 



End of File -- Lines: 15 Characters: 590 
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FILE : "SOS. CFMGR. SRC. TEXT" 



000001 


************************************************************************* 


r\ n n r\ n o 

000002 


* 


APPLE /// SOS 1.3 SOURCE CODE FILE: CFMGR. SRC 




000003 








***************************** 


000004 


* 


ASSEMBLER: APPLE ] [ 65 


32 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 












000006 




SBTL 


"SOS 1.1 CHARACTER FILE MANAGER" 


00000 / 




REL 








r\ n n r\ n o 

000008 




INCLUDE 


SOSORG, 6,1,254 






000009 




ORG 


ORGCFM 






000010 


ZZORG EQU 


* 






000011 




MSB 


OFF 






000012 




REP 


60 






000013 




COPYRIGHT (C) 


APPLE COMPUTER INC. 


1980 


000014 




ALL 


RIGHTS RESERVED 






000015 




REP 


60 






000016 












000017 




CHARACTER FILE MANAGER 


(VERSION =1.10 ) 






000018 






(DATE = 8/04/81) 






000019 












r\ n n r\ n n 

000020 




THIS MODULE TRANSFORMS 


CHARACTER FILE SYSTEM CALLS INTO 


000021 




DEVICE CALLS TO THE APPROPRIATE DEVICE HANDLER 


ONLY 


000022 




OPEN, NEWLINE, READ, WRITE AND CLOSE CALLS 


ARE 


PERMITTED 


000023 




ON CHARACTER FILES. 








000024 












r\ r\ r\ r\ *~> c 

000025 




REP 


60 






r\ r\ r\ r\ r 

000026 












000027 




ENTRY 


CFMGR 






r\ r\ r\ r\ *~> n 

00002b 












000029 




ENTRY 


CFCB.MAX 






000030 




ENTRY 


CFCB . DEV 






000031 


* 










000032 




EXTRN 


DMGR 






000033 




EXTRN 


LEVEL 






r\ n r\ r\ o /i 

000034 




EXTRN 


MAX . DNUM 






r\ n n r\ o it 

000035 




EXTRN 


SXPAGE 






000036 


* 










000037 




EXTRN 


SYSERR 






000038 




EXTRN 


SERR 






000039 




EXTRN 


BADSCNUM 






000040 




EXTRN 


CFCBFULL 






000041 




EXTRN 


BADREFNUM 






000042 




EXTRN 


FNFERR 






000043 




PAGE 








000044 




REP 


60 






000045 


* 










000046 


* 


DATA DECLARATIONS 








000047 


* 










000048 




REP 


60 






000049 












000050 


* 


FILE CALL PARM LOCATIONS ON SOS ZPAGE 






000051 


* 










000052 


F. 


TPARMX EQU 


$A0 






000053 


REQCODE EQU 


F. TPARMX 






000054 


0. 


PATH EQU 


F.TPARMX+1 




OPEN'S PATHNAME LOG 


r\ n r\ r\ c; it 

000055 


0. 


REFNUM EQU 


F.TPARMX+3 




OPEN'S REFNUM LOC 


000056 


REFNUM EQU 


F.TPARMX+1 




REFNUM' S LOC IN OTHER CALLS 


000057 


NI 


. ISNL EQU 


F.TPARMX+2 




NEWLINE 'S ISNEWLINE LOC 


000058 


NI 


. NLCHR EQU 


F.TPARMX+3 




NEWLINE 'S NEWLINECHAR LOC 


000059 


RW.BUF EQU 


F.TPARMX+2 




READ/WRITE 'S BUF LOC 


000060 


RW. BYTES EQU 


F.TPARMX+4 




READ/WRITE 'S BYTES LOC 


000061 


RD.BYTESRD EQU 


F.TPARMX+6 




READ'S BYTESREAD LOC 


UUUUoz 


* 










000063 


* 


FILE REQUEST CODE VALUES 






000064 


* 










000065 


OPEN EQU 


8 






000066 


NEWLINE EQU 


9 






000067 


READ EQU 


$A 






000068 


WRITE EQU 


$B 






000069 


CLOSE EQU 


$C 






000070 




PAGE 








000071 


* 


DEVICE CALL PARM LOCATIONS ON SOS ZPAGE 






000072 


* 










000073 


D. 


TPARMX EQU 


$C0 






000074 


D. 


SCNUM EQU 


D. TPARMX 




DEVICE SYS CALL # LOC 


000075 


GDN . DNAME EQU 


D.TPARMX+1 




GETDEVNUM DNAME LOC 


000076 


GDN . DNUM EQU 


D.TPARMX+3 




GETDEVNUM DNUM LOC 
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uuuu / / 


D . DNUM 


EQU 


D.TPARMX+1 


OPN/CLOSE/RD/WR/CTRL ' S DNUM 


n n n n ~7 o 
UUUU /o 


DRW. BUF 


EQU 


D.TPARMX+2 


RD/WR'S BUF LOC 


uuuu /y 


DRW. BYTES 


EQU 


D.TPARMX+4 


RD/WR'S BYTES LOC 


UU UUo U 


DRD . BYTESRD 


EQU 


D.TPARMX+8 


KU/ WK S BIltbKhAU LOC 


n n n no i 
UUUUol 


DC.CCODE 


EQU 


D.TPARMX+2 


DCTRL ' S CTRLCODE LOC 


n n n n o o 
UUUUoz 


DC.CLIST 


EQU 


D.TPARMX+3 


DCTRL ' S CTRLLIST LOC 


UU UUo J 










UUUUH4 


* DEVICE REQUEST CODE VALUES 




n n n n o c 
UUUUoo 










r\ n n r\ o 
UUUUoo 


DREAD 


EQU 


$0 




U00U87 


DWRITE 


EQU 


$1 




n n n n o o 
UUUUoo 


DCTRL 


EQU 


$3 




UUUU89 


GETDEVNUM 


EQU 


$4 




uuuuyu 


DO PEN 


EQU 


$6 




n n n n ni 

uuuuyi 


DCLOSE 


EQU 


$7 




n An n do 

uuuuyz 










n n n n n o 

uuuuy j 


CTRL. LIST 


DS 


2 


CONTAINER FOR NEWLINE DCTRL 


uuuuy4 


NEWLINECC 


EQU 


2 


NEWLINE CTRL CODE 


n n n n o c 

uu uu yo 










n n n n n 

uuuuyfo 


* GETDNUM VARS 








n n n n n "~7 

uuuuy / 










n n n n n o 

uuuuyy 


DNUM . TEMP 


DS 


1 




n n n n n n 

uuuuyy 










n n n i n n 
UUU1UU 


* CLOSEALL VARS 








n n n i ni 
UUU1U1 










n n n i no 
UU U 1 Uz 


DCLOSE . ERR 


EQU 


F . TPARMX+SF 




n n n i no 
UUUlUo 


DCLOSE. TBL 


EQU 


$200 




n n n i r\ a 
UUU1U4 


TRUE 


EQU 


$80 




n n n i n iz 
UUUlUo 


FALSE 


EQU 


$0 




n n n i n r 
UUUlUo 










n n n i m 
UUU1U / 


* 








n n n t no 

UUUlUo 




REP 


60 




n n n i n n 

uuuiuy 










n n n i i n 
UUU11U 


* CHARACTER FILE CONTROL BLOCK TABLE 




U00111 


* (ENTRY IS NOT USED) 






nnni i o 

UUUllz 


-k 








n n n t t o 
UUU11 J 




REP 


60 




n n n i t yi 
UU U114 


CFCB.MAX 


EQU 


17 




U00115 


CFCB . DEV 


DS 


CFCB.MAX 




n n n i i r 
UUUllo 


CFCB . LVL 


DS 


CFCB.MAX 




n n n i i "~i 
UUU11 / 




PAGE 






UUUllo 




REP 


60 




UU Ull y 










n n n i on 
UUUlzU 


* CHARACTER FILE MANAGER - 


MAIN ENTRY POINT 




n n n i o i 
UU Ulz 1 










n n n i o o 
UUUlzz 




REP 


60 




n n n i o o 
UUUlz o 


CFMGR 


EQU 


* 




n n n i o yi 
UU U lz4 










n n n i o c 
UUUlzo 


* SWITCH, BASED 


ON REQUEST 


CODE 




n n n i or 
UUUlzo 










n n n t o ^ 

UUUlzV 




LDA 


REQCODE 




n n n i o o 
UUUlzo 




CMP 


#OPEN 




n n n i on 

uuuizy 




BEQ 


CFOPEN 


"OPEN" 


U00130 




CMP 


INEWLINE 




n n n i oi 
UUUlol 




BEQ 


CFNEWLINE 


"NEWLINE" 


n n n i o o 
UUUloz 




CMP 


#READ 




n n n t o o 

UUUU 3 




BEQ 


CFREAD 


"READ" 


a a a i "D yi 
0UU134 




CMP 


#WRITE 




a a a i ^> c 

UUUloo 




BNE 


CFM010 




a a a i "D r 

UUU136 




JMP 


CFWRITE 


"WRITE" 


A A A i "3 "7 
UUUIJ / 


CFM010 


CMP 


♦CLOSE 




a a a i to 

UUU138 




BNE 


CFM020 




a a a i ^ n 

uuuuy 




JMP 


CFCLOSE 


"CLOSE" 


a a a i ^ a 
UUU14U 


CFM020 


LDA 


#BADSCNUM 




a a a i ^ t 
UU Ul 4 1 




JSR 


SYSERR 


ERR EXIT 


a a a i ti o 
UU U 1 42 




PAGE 






UUU143 




REP 


60 




A A A 1 ^ yl 

UU U 1 44 


* OPEN (IN. PATHNAME; OUT . REFNUM; IN . OPENLIST, LENGTH) SYSTEM CALL 


A A A 1 A C 
UUU145 




REP 


60 




A A A 1 ^£ 
UU U 1 4 b 


CFOPEN 


EQU 




BUILD "D.OPEN" CALL 


000147 




JSR 


GETDNUM 


MAP PATH TO DEV# 


000148 




BCS 


CFOP.ERR1 


ERR - FILE NOT FOUND 


000149 




STA 


D . DNUM 




000150 


* 








000151 




JSR 


REQ . CFCB 


BUILD NEW CFCB ENTRY 


000152 




BCS 


CFOP.ERR1 


ERR - CFCB FULL 


000153 




LDX 


#0 




000154 




STA 


(O.REFNUM,X) 


RETURN REFNUM TO CALLER 


000155 




CPY 


#1 




000156 




BNE 


CFOP.EXIT 


DEVICE ALREADY OPEN 


000157 


* 
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000158 


LDA 


#DOPEN 




000159 


STA 


D . SCNUM 




000160 


JSR 


DMGR 


; DOPEN CALL 


000161 


BCS 


CFOP . ERR 




000162 


CFOP . EXIT RTS 




; NORMAL EXIT 


000163 








000164 


CFOP . ERR LDA 


SERR 


; KLUDGE - 1.0 DRIVERS DON 


000165 


BEQ 


CFOP . EXIT 


;NO ERROR 


000166 


LDX 


#0 


,* RELEASE CFCB ENTRY 


000167 


LDA 


(O . REFNUM, X) 




000168 


JSR 


REL . CFCB 




000169 


CFOP . ERR1 RTS 




; ERR EXIT 


000170 


PAGE 






000171 


REP 


60 




000172 


* NEWLINE (IN.REFNUM, IS 


. NEWLINE , NEWLINE . 


CHAR) SYSTEM CALL 


00017 j 


REP 


60 




000174 


CFNEWLINE EQU 




; BUILD "D. CONTROL" CALL 


000175 


LDA 


#DCTRL 




000176 


STA 


D . SCNUM 




000177 


LDA 


REFNUM 




000178 


JSR 


GET . CFCB 


; MAP REFNUM TO DEV # 


000179 


BCS 


CFNL . ERR 


; ERR - BAD REFNUM 


000180 








000181 


STA 


D . DNUM 




000182 


LDA 


#NEWLINECC 




000183 


STA 


DC . CCODE 




000184 








000185 


LDA 


#>CTRL . LIST 




000186 


STA 


DC.CLIST 




000187 


LDA 


#<CTRL . LIST 




000188 


STA 


DC . CLIST+1 




000189 


LDA 


#0 




000190 


STA 


SXPAGE+DC . CLIST+1 




000191 








000192 


LDA 


NL . ISNL 




000193 


STA 


CTRL . LIST 




000194 


LDA 


NL . NLCHR 




000195 


STA 


CTRL.LIST+1 




000196 


-k 






000197 


JSR 


DMGR 


; DCONTROL CALL 


000198 


RTS 




; NORMAL EXIT 


000199 








r\ n r\ o n n 

000200 


CFNL.ERR RTS 




; ERR EXIT 


000201 


PAGE 






000202 


REP 


60 




000203 


* READ (IN.REFNUM, BUF, BYTES, BYTESREAD) SYSTEM CALL 


000204 


REP 


60 




000205 


CFREAD EQU 


* 


; BUILD "D. READ" CALL 


000206 


LDA 


# DREAD 




000207 


STA 


D . SCNUM 




000208 


LDA 


REFNUM 




000209 


JSR 


GET . CFCB 


; MAP REFNUM TO DEV # 


000210 


BCS 


CFRD.ERR 


; ERR - BAD REFNUM 


000211 








000212 


STA 


D . DNUM 




000213 


LDX 


#3 




000214 


CFRD010 LDA 


RW.BUF,X 




000215 


STA 


DRW. BUF, X 




000216 


DEX 






000217 


BPL 


CFRD010 




000218 








000219 


LDA 


RD.BYTESRD 




000220 


STA 


DRD . BYTESRD 




000221 


LDA 


RD.BYTESRD+1 




000222 


STA 


DRD . BYTESRD+1 




000223 


-k 






000224 


LDA 


SXPAGE+RW.BUF+1 




000225 


STA 


SXPAGE+DRW . BUF+ 1 




000226 


LDA 


SXPAGE +RW . BYTE S + 1 




000227 


STA 


SXPAGE+DRW . BYTES+1 




000228 


LDA 


SXPAGE+RD. BYTESRD+1 




000229 


STA 


SXPAGE + DRD . BYTESRD+1 




000230 








000231 


JSR 


DMGR 


; DREAD CALL 


000232 


RTS 




; NORMAL EXIT 


000233 








000234 


CFRD.ERR RTS 




; ERR EXIT 


000235 


PAGE 






000236 


REP 


60 




000237 


* WRITE (IN.REFNUM, BUF, BYTES) SYSTEM CALL 




000238 


REP 


60 
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000239 


CFWRITE 


EQU 




BUI LD " D . WRI TE " CALL 


000240 




LDA 


#DWRITE 




000241 




STA 


D . SCNUM 




000242 




LDA 


REFNUM 




000243 




JSR 


GET . CFCB ; 


MAP REFNUM TO DEV # 


000244 




BCS 


CFWR. ERR ; 


ERR - BAD REFNUM 


000245 




STA 


D . DNUM 




000246 




LDX 


#3 




000247 


CFWR010 


LDA 


RW. BUF, X 




000248 




STA 


DRW .BUF, X 




000249 




DEX 






000250 




BPL 


CFWR010 




000251 




LDA 


SXPAGE+RW.BUF+1 




000252 




STA 


SXPAGE+DRW. BUF+1 




000253 




LDA 


SXPAGE +RW . BYTE S + 1 




000254 




STA 


SXPAGE+DRW . BYTES+1 




000255 










000256 




JSR 


DMGR ; 


DWRITE CALL 


000257 




RTS 




NORMAL EXIT 


000258 










000259 


CFWR. ERR 


RTS 


; 


ERR EXIT 


000260 




PAGE 






000261 




REP 


60 




000262 


* CLOSE (IN . 


REFNUM) SYSTEM 


CALL 




0002 63 




REP 


60 




0002 64 


CFCLOSE 


EQU 




BUI LD " D . CLOSE " CALL 


000265 




LDA 


#DCLOSE 




000266 




STA 


D . SCNUM 




000267 




LDA 


REFNUM 




000268 




BEQ 


CLOSEALL 




000269 










000270 




JSR 


REL . CFCB 


RELEASE CFCB ENTRY 


000271 




BCS 


CFCL010 




000272 




STA 


D . DNUM 




000273 




TYA 






000274 




BNE 


CFCL010 




000275 




JSR 


DMGR 


DCLOSE CALL 


000276 


CFCL010 


RTS 




NORMAL EXIT 


000277 










000278 




PAGE 






000279 




REP 


60 




000280 










000281 


* CLOSE ALL 


CHARACTER FILES W/LEVELS >= TO CURRENT SYSTEM FILE LEVEL. 


000282 










000283 




REP 


60 




000284 










000285 


CLOSEALL 


EQU 






000286 




LDA 


# FALSE 


SET ENTRIES IN DEV CLOSE TBL TO FALSE 


000287 




LDX 


MAX . DNUM 




000288 


CFCL020 


STA 


DCLOSE. TBL, X 




000289 




DEX 






000290 




BPL 


CFCL020 




000291 










000292 




LDX 


#CFCB.MAX-1 


CLOSE ALL DEVICES >= TO CURRENT LEVEL 


000293 


CFCL030 


LDA 


CFCB.DEV,X 


AND MARK TRUE IN DEV CLOSE TBL 


000294 




TAY 






000295 




BMI 


CFCL050 




000296 




LDA 


CFCB.LVL,X 




000297 




CMP 


LEVEL 




000298 




BCC 


CFCL050 




000299 




LDA 


#TRUE 




000300 




STA 


DCLOSE . TBL, Y 




000301 




SEC 






000302 




ROR 


CFCB.DEV,X 




000303 


CFCL050 


DEX 






000304 




BNE 


CFCL030 




000305 










000306 




LDX 


#CFCB.MAX-1 


DON'T CLOSE DEVICES < CURRENT LEVEL 


000307 


CFCL060 


LDA 


CFCB . DEV, X 




000308 




TAY 






000309 




BMI 


CFCL070 




000310 




LDA 


# FALSE 




000311 




STA 


DCLOSE. TBL, Y 




000312 


CFCL070 


DEX 






000313 




BNE 


CFCL060 




000314 


* 








000315 




LDA 


#0 




000316 




STA 


DCLOSE. ERR 




000317 




LDX 


MAX . DNUM 


ISSUE D' CLOSE CALLS TO ALL DEVICES MARKED 


000318 


CFCL080 


LDA 


DCLOSE. TBL, X 


IN DEV CLOSE TABLE 


000319 




BPL 


CFCL090 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



CFCL090 



TXA 
PHA 
STX 
JSR 
PLA 
TAX 
LDA 
BEQ 
STA 
DEX 
BNE 

LDA 

BNE 

RTS 

JSR 

PAGE 

REP 



D . DNUM 
DMGR 



SERR 
CFCL090 
DCLOSE . ERR 



DCLOSE . ERR 
CFCL.ERR 



SYSERR 

60 



IF ERROR, 
THEN SAVE IT 



IF $0 THEN NO ERRORS FROM D. CLOSE CALLS 



NORMAL EXIT 

RETURN LAST D. CLOSE ERROR REPORTED 



* GET DEVICE NUMBER 

* INPUT: CPATH 

* OUTPUT: DEVICE NUMBER (A) 

* ERROR: CARRY SET ("FILE NOT FOUND") 

* GETDNUM FIRST CALLS THE DMGR (GETDEVNUM) MAP THE PATHNAME 

* TO A DEVICE #. GETDNUM THEN ENSURES THAT THE PATHNAME 

* IS NOT A BLOCK DEVICE BY CHECKING THE DBLKLST TABLE. 



60 



ETDNUM EQU 
LDA 
STA 

LDA 
STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 

JSR 
BCS 
BMI 
LDA 
RTS 

ETD . ERR LDA 
JSR 
PAGE 
REP 

REQUEST FCB ENTRY 

INPUT: DNUM (A) 
OUTPUT: REFNUM (A) , 
ERROR: CARRY SET ( 



IGETDEVNUM 
D . SCNUM 

O . PATH 
GDN . DNAME 
O.PATH+1 
GDN.DNAME+1 

#>DNUM.TEMP 
GDN . DNUM 
#<DNUM.TEMP 
GDN. DNUM+1 

SXPAGE+O.PATH+1 
SXPAGE+GDN . DNAME + 1 
#0 

SXPAGE+GDN . DNUM+1 
DMGR 

GETD.ERR 
GETD.ERR 
DNUM. TEMP 



#FNFERR 
SYSERR 



D . NAME NOT FOUND 
BLOCK DEVICE FOUND 



60 



OPENCT (Y) 
'CFCB FULL") 



REQ.CFCB FIRST SEARCHES THE CFCB TABLE USING THE DEV# 

AS A KEY. IF FOUND THE OPENCT IS INCREMENTED, OTHERWISE, 

REQ.CFCB FINDS A FREE ENTRY AND STORES THE DEV# AND LEVEL #. 



REQ . CFCB 



REQ010 



REP 

EQU 
LDX 
TAY 
LDA 
BMI 
DEX 
BNE 
LDA 
JSR 



60 



ICFCB.MAX-l 

CFCB.DEV,X 

REQ020 

REQ010 

#CFCBFULL 

SYSERR 
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000401 


REQ02 


TYA 






000402 




STA 


CFCB . DEV, X 




00040 3 




LDA 


LEVEL 




000404 




STA 


CFCB . LVL, X 




000405 




TXA 






000406 




PHA 






000407 




TYA 






000408 




JSR 


OPENCOUNT 




000409 




PLA 






000410 




ORA 


#380 




000411 




CLC 






000412 




RTS 




; NORMAL EXIT 


000413 




PAGE 






000414 




REP 


60 




000415 










00041b 


* RELEASE 


FCB ENTRY 






000417 










000418 


* INPUT : 


REFNUM (A) 






000419 


* OUTPUT: 


DNUM (A) , 


OPENCT (Y) 




000420 


* ERROR: 


CARRY SET 


("INVALID REFNUM") 




000421 










000422 


* USES REFNUM AS AN CFCB TABLE INDEX TO 


RELEASE A CFCB ENTRY . 


000423 










000424 




REP 


60 




000425 


REL.CFCB 


EQU 


* 




000426 




AND 


#$7F 




000427 




CMP 


#CFCB.MAX 




000428 




BCS 


REL . ERR 




000429 




TAX 






000430 




LDA 


CFCB . DEV, X 




000431 




BMI 


REL . ERR 




000432 




SEC 




; MARK ENTRY 


000433 




ROR 


CFCB . DEV, X 




000434 




JSR 


OPENCOUNT 




000435 




CLC 






000436 




RTS 




; NORMAL EXIT 


000437 










000438 


REL . ERR 


LDA 


IBADREFNUM 




000439 




JSR 


SYSERR 




000440 




REP 


60 




000441 










000442 


* OPENCOUNT SUBROUTINE 




000443 










000444 


* INPUT: 


DEVNUM (A) 






000445 


* OUTPUT: 


DEVNUM (A) 


, OPENCTR (Y) 




000446 










000447 


* OPENCTR 


=COUNT OF ALL CFCB ENTRIES W/CFCB . DEV=DEVNUM 


000448 










000449 




REP 


60 




000450 


OPENCOUNT 


EQU 


* 




000451 




LDY 


#0 




000452 




LDX 


ICFCB.MAX-l 




000453 


OPNCT010 


CMP 


CFCB . DEV, X 




000454 




BNE 


OPNCT020 




r\ n n a (z iz 
000455 




I NY 






000456 


OPNCT020 


DEX 






000457 




BNE 


OPNCT010 




000458 




RTS 






000459 




PAGE 






0004 60 




REP 


60 




0004 61 










0004 62 


* GET FOB 


ENTRY 






0004 63 










0004 64 


* INPUT: 


REFNUM (A) 






0004 65 


* OUTPUT: 


DNUM (A) 






0004 66 


* ERROR: 


CARRY SET 


("INVALID REFNUM") 




r\ n r\ a r-i 

0004 6/ 










r\ n n a r n 

0004 68 


* USES REFNUM AS AN INDEX TO RETURN THE 


CORRESPONDING DEVICE 


r\ n n a r n 

000469 


* IF THE ENTRY INDICATED BY REFNUM IS A 


FREE ENTRY, THEN AN 


000470 


* ERROR, 


INVALID REF 


NUM" IS RETURNED. 




000471 










000472 




REP 


60 




000473 


GET. CFCB 


EQU 






000474 




AND 


#$7F 




000475 




CMP 


#CFCB.MAX 




000476 




BCS 


GET . ERR 




000477 




TAX 






000478 




LDA 


CFCB . DEV, X 




000479 




BMI 


GET . ERR 




000480 




CLC 






000481 




RTS 




; NORMAL EXIT 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 



GET . ERR 



* 



ZZEND 
ZZLEN 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



LDA 
JSR 



ON 



ZZEND-ZZORG 
ZZLEN-LENCFM 
2, "SOSORG 



tBADREFNUM 
SYSERR 



FILE IS INCORRECT FOR CFMGR' 



ERR EXIT 



000492 

000493 ************************************************************************* 

000494 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: CFMGR. SRC 

000495 ************************************************************************* 
000496 

End of File — Lines: 496 Characters: 12860 
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FILE : "SOS. CLOSE. EOF. TEXT" 



r\ n n r\ n i 

000001 


********************************************************* 


r\ n n r\ n o 

000002 


* a ppt t? / / / 

JAc r Liti, ill 




CODE FILE: 


SLOSE.EOF 




000003 


************ 


************** 




*********************************** 


000004 




a ppt t? i r f, r n 9 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 












000006 












00000 / 


* 










r\ n n r\ n o 

000008 


* 










000009 


CLOSE 




C . REFNUM 




CLOSE ALL? 


000010 






CLOSE1 




NO, JUST ONE OF 'EM 


r\ n r\ r\ i t 

000011 






CFERR 




CLEAR GLOBAL CLOSE ERROR 


000012 






GFCBADR 




SET UP POINTER TO FCB 


000013 


pt ncM t 




#0 




BEGIN AT THE BEGINNING. 


000014 


PT OAT T 1 
L^lj Of"! J_ll_l_L 


STA 


FCBPTR 




SAVE CURRENT LOW BYTE OF POINTER 


000015 






#FCBLEVL 




FETCH THE LEVEL AT WHICH 


000016 






(FCBPTR) , Y 




FILE WAS OPENED 


000017 






LEVEL 




TEST AGAINST CURRENT GLOBAL LEVEL 


000018 






NXTCLOS 




DONT CLOSE IF FILES LEVEL IS < GLOBAL LEVEL 


000019 






#FCBREFN 




INDEX TO REFERENCE NUMBER 


r\ r\ r\ r\ *~) r\ 

000020 






( FCBPTR) , Y 




IS THIS REFERENCE FILE OPEN? 


000021 






NXTCLOS 




NO, TRY NEXT. 


000022 




JSR 


FLUSH2 




CLEAN IT OUT . . . 


000023 




BCS 


CLOSERR 




RETURN FLUSH ERRORS 


000024 






CLOSE2 




UPDATE FCB & VCB 


r\ n n r\ n it 

000025 




LDY 


C . REFNUM 






r\ n n r\ n r 

000026 






NXTCLOS 




NO ERR IF CLOSE ALL 


000027 






CLOSERR 






r\ n n r\ n o 

00002a 


HVTPT PC 

NaILJjUo 




FCBPTR 




BUMP POINTER TO NEXT FILE CONTROL BLOCK. 


000029 












000030 




ADC 


#$20 






000031 






CLSALL1 




BRANCH IF WITHIN SAME PAGE. 


000032 






FCBPTR+1 






000033 






FCBPTR+1 




BUMP TO NEXT PAGE . 


000034 






FCBADDRH 




HAVE WE CHECKED BOTH PAGES? 


r\ n n r\ o it 

000035 






CLOSALL 




YES, RETURN NO ERROR. 


000036 




CLC 








000037 






CFERR 




ON FINAL CLOSE OF CLOSE ALL REPORT LOGGED ERRORS 


000038 




BEQ 


C3 




BRANCH IF NO ERRORS 


000039 




SEC 








UU UU4 U 


C3 


RTS 








000041 


* 










000042 


* 










000043 


CFERR 




1 




GLOBAL ERROR FLAG FOR FLUSH AND CLOSE ALL 


000044 


* 










000045 


* 










000046 


L J J_lVjO£j_L 




FLUSH1 




FLUSH FILE FIRST (INCLUDING UPDATING BIT MAP) 


000047 






CLOSERR 






000048 


PT PiQH 1 9 


LDY 


tFCBBUFN 






000049 






(FCBPTR) , Y 






000050 




JSR 


RELBUF 






000051 






CLOSERR 






000052 






#0 






000053 




LDY 


#FCBREFN 






000054 






(FCBPTR) , Y 






000055 




INY 






BUMP TO ' FCBDEVN ' 


000056 






(FCBPTR) , Y 






000057 






DEVNUM 




GO LOOK FOR ASSOCIATED VCB. 


000058 






DEWCB 






000059 






VCBPTR 




GET VCBPTR 


000060 




DEC 


VCB+VCBOPNC 


,x 


INDICATE ONE LESS FILE OPEN. 


000061 




BNE 


CLOSEND 




BRANCH IF THAT WASN'T THE LAST... 


r\ n n n r o 
000062 




LDA 


VCB+VCBSTAT 


,x 




000063 




AND 


#$7F 




STRIP 'FILES OPEN' BIT 


000064 




STA 


VCB+VCBSTAT 


,x 




000065 


CLOSEND 


CLC 








000066 




RTS 








000067 


CLOSERR 


JMP 


GLBERR 




DON'T REPORT CLOSALL ERR NOW 


000068 












000069 




PAGE 








000070 


* 










000071 


FLUSH 


LDA 


C . REFNUM 




FLUSH ALL? 


000072 




BNE 


FLUSH1 




NO, JUST ONE OF 'EM 


000073 




STA 


CFERR 




CLEAR GLOBAL FLUSH ERROR 


000074 




JSR 


GFCBADR 




SET UP POINTER TO FCB 


000075 


FLSHALL 


LDA 


#0 




BEGIN AT THE BEGINNING . 


000076 


FLSHAL1 


STA 


FCBPTR 




SAVE CURRENT LOW BYTE OF POINTER 
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000077 




LDY 


#FCBREFN 


INDEX TO REFERENCE NUMBER 


000078 




LDA 


(FCBPTR) , Y 


IS THIS REFERENCE FILE OPEN? 


000079 




BEQ 


NXFLUSH 


NO, TRY NEXT. 


000080 




JSR 


FLUSH2 


CLEAN IT OUT . . . 


000081 




BCS 


FLSHERR 


RETURN ANY ERRORS 


000082 










000083 




BCS 


CLOSERR 




000084 


NXFLUSH 


LDA 


FCBPTR 


BUMP POINTER TO NEXT FILE CONTROL BLOCK. 


000085 




CLC 






000086 




ADC 


#$20 




000087 




BCC 


FLSHAL1 


BRANCH IF WITHIN SAME PAGE. 


000088 




LDA 


FCBPTR+1 




000089 




INC 


FCBPTR+1 


BUMP TO NEXT PAGE . 


000090 




CMP 


FCBADDRH 


HAVE WE CHECKED BOTH PAGES? 


000091 




BEQ 


FL SHALL 


YES, RETURN NO ERROR. 


000092 


FLUSHEND 


CLC 






000093 




LDA 


CFERR 


ON LAST FLUSH OF A FLUSH (0) 


000094 




BEQ 


F3 


BRANCH IF NO LOGGED ERRORS 


000095 




SEC 




REPORT ERROR NOW 


000096 


F3 


RTS 






000097 


FLSHERR 


JMP 


GLBERR 


FLUSH ALL OR ONE? 


000098 










000099 


FLUSH2 


JSR 


FNDFCBUF 


MUST SET UP ASSOCIATED VCB AN BUFFER LOCATIONS FIR. 


000100 




BCC 


FLUSH2A 


BRANCH IF NO ERROR ENCOUNTERED. 


000101 




JMP 


GLBERR 


CHECK FOR CLOSE OR FLUSH ALL 


000102 










000103 


FLUSH1 


LDA 


#0 


CLEAR 


000104 




STA 


CFERR 


GLOBAL ERROR FOR NORMAL REFNUM FLUSH 


000105 




JSR 


FINDFCB 


SET UP POINTER TO FCB USER REFERENCES 


000106 




BCS 


FLSHERR 


RETURN ANY ERRORS 


000107 


FLUSH2A 


LDY 


#FCBATTR 


TEST TO SEE IF FILE IS 


000108 




LDA 


(FCBPTR) , Y 


MODIFIED. FIRST TEST WRITE ENABLED. 


000109 




AND 


#WRITEN 




000110 




BEQ 


FLUSHEND 


BRANCH IF 'READ ONLY' 


000111 




LDY 


#FCB DIRTY 


SEE IF EOF HAS BEEN MODIFIED 


000112 




LDA 


(FCBPTR) , Y 




000113 




BMI 


FLUSH2B 


BRANCH IF IT HAS 


000114 




LDY 


#FCBSTAT 


NOW TEST FOR DATA MODIFIED. 


000115 




LDA 


(FCBPTR) , Y 


(IN OTHER WORDS: WAS FILE ACTUALLY 


000116 




AND 


#USEMOD+EOFMOD+DATMOD 


; WRITTEN TO WHILE IT'S BEEN OPEN?) 


000117 




BEQ 


FLUSHEND 


BRANCH IF FILE NOT MODIFIED. 


000118 


FLUSH2B 


JSR 


TWRPROT1 


DISK SWITCH CHECKING 


000119 




LDA 


DSWGLOB 




000120 




BEQ 


FLUSH2C 


BRANCH IF NO SWITCH 


000121 




LDA 


#XDISKSW 




000122 




SEC 






000123 




RTS 




FORCES A VERIFIED RETRY 


000124 


FLUSH2C 


LDY 


#FCBSTAT 


NOW TEST FOR DATA MODIFIED. 


000125 




LDA 


(FCBPTR) , Y 




000126 




AND 


#DATMOD 


DOES CURRENT DATA BUFFER NEED TO BE 


000127 




BEQ 


FLUSH3 


WRITTEN? BRANCH IF NOT. 


000128 




JSR 


WFCBDAT 


IF SO, GO WRITE IT STUPID! 


000129 




BCS 


FLSHERR 




000130 


FLUSH3 


LDY 


#FCBSTAT 


CHECK TO SEE IF THE INDEX BLOCK (TREE FILES ONLY) 


000131 




LDA 


(FCBPTR) , Y 


NEEDS TO BE WRITTEN. 


000132 




AND 


#IDXMOD 




000133 




BEQ 


FLUSH4 


BRANCH IF NOT. . . 


000134 




JSR 


WFCBIDX 




000135 




BCS 


FLSHERR 


RETURN ANY ERRORS . 


000136 




PAGE 






000137 










000138 


FLUSH4 


LDY 


#FCBENTN 


NOW PREPARE TO UPDATE DIRECTORY 


000139 


OWNRMOV 


LDA 


(FCBPTR) , Y 


NOTE: THIS CODE DEPENDS ON THE 


000140 




STA 


D . DEV-FCBDEVN, Y 


DEFINED ORDER OF THE FILE CONTROL 


000141 




DEY 




BLOCK AND THE TEMPORARY DIRECTORY AREA IN 'WORKSPC 


000142 




CPY 


#FCBDEVN-1 




000143 




BNE 


OWNRMOV 




000144 




LDA 


D . HEAD 


READ IN THE DIRECTORY HEADER FOR THIS FILE 


000145 




STA 


BLOKNML 




000146 




LDA 


D . HEAD+1 




000147 




STA 


BLOKNMH 




000148 




LDA 


D. DEV 




000149 




STA 


DEVNUM 




000150 




JSR 


RDGBUF 


READ IT INTO THE GENERAL PURPOSE BUFFER 


000151 




BCS 


FLSHERR 


BRANCH IF ERROR. 


000152 




JSR 


MOVHED0 


MOVE HEADER INFO. 


000153 




LDA 


D . ENTBLK 


GET ADDRESS OF DIRECTORY BLOCK THAT 


000154 




LDY 


D.ENTBLK+1 


CONTAINS THE FILE ENTRY. 


000155 




CMP 


D . HEAD 


TEST TO SEE IF IT'S THE SAME BLOCK THAT 


000156 




BNE 


FLSHEBLK 


THE HEADER IS IN. BRANCH IF NOT. 


000157 




CPY 


D. HEAD+1 
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000158 




BEQ 


FLUSH5 


BRANCH IF HEADER BLOCK = ENTRY BLOCK. 


000159 


FLSHEBLK 


STA 


BLOKNML 




000160 




STY 


BLOKNMH 




000161 




JSR 


RDGBUF 


GET BLOCK WITH FILE ENTRY IN GENERAL BUFFER 


000162 


FLUSH5 


JSR 


ENTCALC 


SET UP POINTER TO ENTRY 


000163 




JSR 


MOVENTRY 


MOVE ENTRY TO TEMP ENTRY BUFFER IN 'WORKS PC 


000164 




LDY 


fFCBUSE 


UPDATE ' BLOCKS USED ' COUNT . 


000165 




LDA 


(FCBPTR) , Y 




000166 




STA 


DFIL+D. USAGE 




000167 




I NY 






000168 




LDA 


(FCBPTR) , Y 




000169 




STA 


DFIL+D . USAGE+1 


HI BYTE TOO . . . 


000170 




LDY 


#FCBEOF 


AND MOVE IN END OF FILE MARK WHETHER 


000171 


EOFUPDTE 


LDA 


(FCBPTR) , Y 


WE NEED TO OR NOT. 


000172 




STA 


DFIL+D .EOF-FCBEOF, Y 




00017 j 




I NY 




MOVE ALL THREE BYTES . 


000174 




CPY 


#FCBEOF+3 




000175 




BNE 


EOFUPDTE 




000176 




LDY 


#FCBFRST 


ALSO MOVE IN THE ADDRESS OF 


000177 




LDA 


(FCBPTR) , Y 


THE FILE'S FIRST BLOCK SINCE 


000178 




I NY 




IT MIGHT HAVE CHANGED SINCE THE FILE 


000179 




STA 


DFIL+D . FRST 


FIRST OPENED. 


000180 




LDA 


(FCBPTR) , Y 




000181 




STA 


DFIL+D . FRST+1 




000182 




PAGE 






000183 




LDY 


#FCBSTYP 


AND THE LAST THING TO UPDATE IS 


000184 




LDA 


(FCBPTR) , Y 


THE STORAGE TYPE . 


000185 




ASL 


A 


(SHIFT IT INTO THE HI NIBBLE) 


000186 




ASL 


A 




000187 




ASL 


A 




000188 




ASL 


A 




000189 




STA 


SCRTCH 




000190 




LDA 


DFIL+D . STOR 


GET OLD TYPE BYTE (IT MIGHT BE THE SAME) 


000191 




AND 


#$F 


STRIP OFF OLD TYPE 


000192 




ORA 


SCRTCH 


ADD IN THE NEW TYPE, 


000193 




STA 


DFIL+D . STOR 


AND PUT IT AWAY. 


000194 




JSR 


DREVISE 


GO UPDATE DIRECTORY! 


000195 




BCS 


FLUSHERR 




000196 




LDY 


#FCBDIRTY 


MARK 


000197 




LDA 


(FCBPTR) , Y 


FCB/DIRECTORY 


000198 




AND 


#$FF-FCBMOD 


AS 


000199 




STA 


(FCBPTR) , Y 


UNDIRTY 


r\ n n o n n 

000200 




LDX 


#0 


NOW CHECK TO SEE IF A BIT MAP 


000201 




LDA 


D . DEV 


IS LYING AROUND THAT SHOULD BE WRITTEN. 


000202 




CMP 


BMADEV 


IS IT IN MAP BUFFER A? 


000203 




BEQ 


BMAPUP 


YES, PUT IT ON THE DISK IF NECESSARY. 


000204 




LDX 


#BMTABSZ 


SET INDEX TO BIT MAP TABLE 'B' 


000205 




CMP 


BMBDEV 


NO, WHAT ABOUT BIT MAP BUFFER B? 


000206 




BNE 


FLSHEND1 


NOPE , ALL DONE . 


000207 


BMAPUP 


LDA 


BMASTAT, X 


TEST TO SEE IF IT'S BEEN MODIFIED. 


000208 




BPL 


FLSHEND1 


NOPE, ALL DONE AS I SAID. 


000209 




STX 


BMTAB 




000210 




JSR 


WRTBMAP 


GO PUT IT AWAY. 


000211 




BCS 


FLUSHERR 




000212 




LDX 


BMTAB 


MARK MAP AS UPDATED 


000213 




LDA 


#0 




000214 




STA 


BMASTAT, X 




000215 


FLSHEND1 


CLC 






000216 




RTS 






000217 


FLUSHERR 


EQU 




DROP INTO GLBERR 


000218 










000219 


GLBERR 


EQU 




REPORT ERROR IMMEDIATELY 


000220 


* ONLY IF NOT 


A CLOSE 


ALL OR FLUSH ALL 




000221 




LDX 


C . REFNUM 




000222 




BNE 


GLBERR1 


NOT AN 'ALL' SO REPORT NOW 


000223 




CLC 






000224 




STA 


CFERR 


SAVE FOR LATER 


000225 


GLBERR1 


RTS 






000226 










000227 










000228 


GFCBADR 


LDA 


FCBANKNM 


GET BANK THAT FCB IS IN 


000229 




STA 


SISFCBP 




000230 




LDA 


FCBADDRH 


AND HIGH BYTE ADDRESS OF FILE CONTORL BLOCK 


U U U <l O -L 






r L.J3Jr 1 r\T_L 




000232 




RTS 




SILLY THAT IT'S SO SHORT... 


000233 


-k 








000234 


SETERR 


LDA 


#ACCSERR 




000235 




SEC 






000236 


EOFRETN 


RTS 






000237 




PAGE 






000238 


* 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



SETEOF0 
SETEOF1 
SETEOF2 



PURTEST1 
TRELEAS1 



LDY 
LDA 
CMP 
BCS 
LDY 
LDA 
AND 
BEQ 
JSR 
BCS 
LDY 
LDX 
LDA 
STA 
DEY 
DEX 
BPL 
JSR 
BCS 
LDX 
LDA 
STA 
DEX 
BPL 
LDY 
LDX 
LDA 
CMP 
BCC 
BNE 
DEY 
DEX 
BPL 
JSR 
BCS 
LDX 
LDY 
LDA 
STA 
DEY 
DEX 
BPL 
JSR 

LDX 
LDA 
CMP 
BCC 
BNE 
DEX 
BPL 
JMP 
JMP 

LDY 
LDA 
CMP 
BEQ 
CMP 
BEQ 



tFCBSTYP 

(FCBPTR) ,Y 

ITRETYP+1 

SETERR 

#FCBATTR 

(FCBPTR) ,Y 

#WRITEN 

SETERR 

TSTWPROT 

SETERR 

#FCBEOF+2 

#2 

(FCBPTR) , Y 
OLDEOF,X 



SETSAVE 
ADJMARK 
EOFRETN 
#2 

TPOSLL,X 
C.NEWEOF,X 

NEOFPOS 
IFCBMARK+2 

#2 

(FCBPTR) ,Y 
C.NEWEOF,X 
SETEOF1 
SETEOF0 



NEOFTST 

RDPOSN 

EOFRETN 

#2 

IFCBEOF+2 
C.NEWEOF,X 
(FCBPTR) ,Y 



SETEOF2 
FCBUSED 

#2 

OLDEOF,X 
C.NEWEOF,X 
PURTEST1 
PURGE 

PURTEST 

FLSHEND1 

TRELEASE 

#FCBSTYP 

(FCBPTR) ,Y 

fSEEDTYP 

EOFOUT 

#TRETYP 

TRELEAS1 



ONLY KNOW HOW TO MOVE EOF OF TREE TYPE 



BRANCH IF OTHER THAN TREE 

NOW CHECK TO INSURE WRITE IS ENABLED. 

CAN WE SET NEW EOF? 
NOPE, ACCESS ERROR. 

FIND OUT IF MOD IS POSIBLE (HARDWARE WRITE PROTECT) 



SAVE OLD EOF 

SO IT CAN BE SEEN 

WHETHER BLOCKS NEED 

TO BE RELEASED 

UPON 

CONTRACTION 

ALL THREE BYTES OF THE EOF 

GET ADJUSTED END OF FILE ACCORDING TO 

RETURN ANY ERROR IMMEDIATELY 



C.BASE' INTO TPOS. 



; POSITION MARK TO NEW EOF 



FIND OUT IF EOF < MARK. 



COMPARE UNTIL NOT EQUAL OR CARRY CLEAR 
BRANCH IF EOF>MARK 
BRANCH IF EOF<MARK 



LOOP ON ALL THREE BYTES 
READ IN NEW POSITION. 
RETURN ANY ERRORS. 



MOVE NEW EOF TO FCB. 



MOVE ALL THREE BYTES. 

MARK FCB AS DIRTY (FOR FLUSH) 

POINT TO THIRD BYTE 

SEE IF EOF MOVED BACKWARDS 

SO BLOCKS CAN 

BE RELEASED (BRANCH IF NOT) 
BRANCH IF BLOCKS TO BE RELEASED 

ALL THREE BYTES 
NEW EOF NOT SMALLER 
OVERFLOW PREVENTER 

FIND OUT WHAT TYPE OF TREE 
TO PERFORM THE PROPER 
STYLE OF BLOCK RELEASE 
SEED DON'T DEALLOCATE 
FULL TREE? 
BRANCH IF YES 



IF WE GET HERE, WE ARE RELEASING 

BLOCKS AT THE END OF A SAPLING FILE: CALCULATE CORRECT POSITION 
WITHIN THE INDEX BLOCK AND ALLOW SUBROUTINE 
PURGE LATTER BLOCKS TO DEALLOCATE 
ALL THE DATA BLOCKS THAT FOLLOW 



JSR 
LDX 
LDY 
LDA 
BNE 
CPY 
BNE 
CPX 
BEQ 
DEX 



FNDBMAP 

TPOSHI 

TPOSLH 

TPOSLL 

PUR1 

#0 

PUR2 
#0 

PUR1 



REFRESH THE RIGHT MAP FOR THIS VOLUME 
PRELOAD 
THE THREE EOF 
BYTES 

BRANCH IF NO BOUNDARY ADJUSTMENT NEEDED 

MIDDLE BYTE ZERO MEANS NO CARRY 
ALL BYTES ZERO?? 
BRANCH IF YES 



THESE LINES IF CODE, SOMEWHAT CRYPTIC, 
CALCULATE THE POINT AT WHICH THE 
LAST BLOCK CONTAINING THE LAST BIT 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



* OF DATUM 



THE FOLLOWING IS ROUGHLY A /512 
ALGORITHM 



PUR2 
PUR1 



PURHI 
EOFOUT 



DEY 
TXA 
LSR 
TYA 
ROR 

JSR 
LDY 
LDA 
ORA 
STA 
LDA 
CLC 
ADC 
LDY 
STA 
I NY 
LDA 
BCC 
LDA 
STA 
CLC 
RTS 



PURLBLKS 
#FCBSTAT 
(FCBPTR) ,Y 
#IDXMOD 
(FCBPTR) ,Y 
PURUSE 

#2 

tFCBUSE 
(FCBPTR) ,Y 

#0 

PURHI 
#1 

(FCBPTR) ,Y 



PURLBLKS EQU * 

* INPUT ARG : A REGISTER CONTAINING 

* POINTER TO CURRENT DATA BLOCK WITHIN THE 

* CURRENT INDEX BLOCK (TINDX) 

* DEALLOCATE ALL LEGAL BLOCKS AFTER 

* THE A REGISTER PTR. NO ERRORS POSSIBLE 



PURLRTS 
PURUSE 
PURPLACE 
TRELEASE 



GETEOF 
OUTEOF 



TAY 

STY 

I NY 

BEQ 

INC 

LDA 

TAX 

LDA 

STA 

TXA 

DEC 

ORA 

BEQ 

LDA 

PHA 

LDA 

STA 

PLA 

STY 

JSR 

LDY 

CLC 

LDA 

ADC 

STA 

I NY 

LDA 

ADC 

STA 

LDY 

JMP 

RTS 

DS 

DS 

EQU 

JMP 

LDY 
LDX 
LDA 
STA 
I NY 
CPY 
BEQ 
INC 



PURUSE 

PURLRTS 
TINDX+1 
(TINDX) , Y 

#0 

(TINDX) , Y 

TINDX+1 
(TINDX) , Y 
PURLOOP 
(TINDX) , Y 

#0 

(TINDX) , Y 

PURPLACE 

DEALLOC 

#VCBTFRE 

(VCBPTR) ,Y 
#1 

(VCBPTR) , Y 

(VCBPTR) ,Y 

#0 

(VCBPTR) ,Y 

PURPLACE 

PURLOOP 

1 
1 

EOFOUT 

#FCBEOF 
#0 

(FCBPTR) ,Y 
(C. OUTEOF, X) 

#FCBEOF+3 
OFFRTS 
C . OUTEOF 



MAKES A GOOD PTR TO DO THE RELEASING 
MARK INDEX BLOCK 
AS DIRTY 



INDICATE NEW NUMBER OF BLOCKS USED 

ACCOUNT FOR CARDINAL AND INDEX 

FILE LOW BYTE 

ANTICIPATE <257 BLOCKS 

>256 BLOCKS IN FILE 
HIGH BYTE BLOCKS USED 

NO ERRORS POSSIBLE 

PURGE LATTER BLOCKS 



MAKE PROPER INDEX 

INDICATES NUMBER OF BLOCKS IN USE IN FILE 
POINT TO A PTR TO DATA BLK TO DEALLOCATE 
NO MORE BLOCKS IN INDEX 
GET HIGH PART OF BLOCK ADDR 

X IS A PASSING PARM 

TELL INDEX BLOCK THAT THE DATA 

BLOCK IS NOW FREE 

AND LOW PART 

INDICATED ADDR WAS ZERO-ZERO 
A REG IS ANOTHER PASSING PARM 



AND SET LOW DATA ADDR AS FREED 



TEMP STORAGE 

DEALLOCATE BLOCK (ADDR: A (LOW), X ( HIGH) 



ADJUST NUMBER OF FREE BLOCKS ON VOLUME 



; HIGH BYTE OF TOTAL FREE 



CURRENT NUMBER OF BLOCKS USED 
CURRENT PLACE IN RELEASE-BLOCK CYCLE 



; RELEASE TWO LEVEL TREE CODE GOES HERE 



INDEX TO END OF FILE MARK 

WE'VE GOT INDIRECT BOTH WAYS (IN S OUT) 



BRANCH IF ALL THREE BYTES TRANSFERED. 
BUMP USER'S POINTER. 



« Apple /// Computer » SOS 1.3 Source Code Listing • 40 of 255 




000401 BNE 

000402 INC 

000403 BNE 

000404 * 

000405 CHN 
000406 

000407 ************************************************************************* 

000408 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE : CLOSE. EOF 

000409 ************************************************************************* 
000410 

End of File — Lines: 410 Characters: 16893 



OUTEOF 
C.OUTEOF+1 

OUTEOF ; BRANCH ALWAYS 

DESTROY, 4, 2 
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FILE : "SOS. COMP.OPR.IPL. TEXT 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: COMP.OPR.IPL 

000004 * ASSEMBLER : APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 : TABS 17,23,40 

000007 ::PR#1,L58 132N 

000008 SL4:DR1:ASM OPRMSG . SRC, OPRMSG. OBJ, 6, 1 

000009 SL4:DR1:ASM IPL . SRC1 , IPL . OBJ, 6, 1 

000010 SL4 : DR1 : A, 6, 1 

000011 END 
000012 

000013 ************************************************************************* 

000014 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMP.OPR.IPL 

000015 ************************************************************************* 



End of File -- Lines: 15 Characters: 579 
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FILE : "SOS . COMP . SOS .NOLIST . TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: COMP . SOS . NOLIST 



******** 



* ASSEMBLER : APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
: TABS 17,23,40 

SL4 : DR1 : ASM SOSLDR. SRC, SOSLDR.OBJ, 6, 1 

SL4 : DR1 : ASM INIT.SRC, INIT.OBJ, 6, 1 

SL4 : DR1 : ASM SYSGLOB.SRC, SYSGLOB.OBJ, 6, 1 

SL4 : DR1 : ASM OPRMSG . SRC, OPRMSG. OBJ, 6, 1 

SL4 : DR1 : ASM BFM. INIT2 . SRC, BFM. INIT2 . OBJ, 6, 1 

SL4:DR1:ASM IPL . SRC1 , IPL . OBJ, 6, 1 

SL4 : DR1 : ASM UMGR. SRC, UMGR. OB J, 6, 1 

SL4 : DR2 : ASM DISK3.SRC, DISK3 .OBJ, 6, 1 

SL4 : DR2 : ASM SYSERR. SRC, SYSERR.OBJ, 6, 1 

SL4 : DR2 : ASM SCMGR.SRC, SCMGR.OBJ, 6, 1 

SL4 : DR2 : ASM FMGR.SRC, FMGR.OBJ, 6, 1 

SL4 : DR2 : ASM CFMGR. SRC, CFMGR. OBJ, 6, 1 

SL4 : DR2 : ASM DEVMGR. SRC, DEVMGR. OBJ, 6, 1 

SL4 : DR2 : ASM BUFMGR. SRC, BUFMGR. OBJ, 6, 1 

SL4 : DR2 : ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 

END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMP . SOS .NOLIST 
************************************************************************* 



End of File 



Lines: 27 Characters: 1028 



« Apple /// Computer » SOS 1.3 Source Code Listing • 43 of 255 




FILE : "SOS.COMPILE.BFM.TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. BFM 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 :T 17,23,40 

000007 ::PR#1,L58 132N 

000008 : : SL4 : DR1 : ASM PRINT, BFM. OBJ, 6, 1 

000009 : : END 
000010 

000011 *************************************************************** 

000012 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. BFM 

000013 ************************************************************************* 



End of File -- Lines: 13 Characters: 525 
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FILE : "SOS. COMPILE. SOS. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. SOS 



******** 



* ASSEMBLER : APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

: TABS 17,23,40 
::PR#1,L58 132N 

SL4 : DR1 : ASM SOSLDR. SRC, SOSLDR.OBJ, 6, 1 

SL4 : DR1 : ASM INIT.SRC, INIT.OBJ, 6, 1 

SL4 : DR1 : ASM SYSGLOB.SRC, SYSGLOB.OBJ, 6, 1 

SL4 : DR1 : ASM BFM. INIT2 . SRC, BFM. INIT2 . OBJ, 6, 1 

SL4 : DR1 : ASM OPRMSG . SRC, OPRMSG. OBJ, 6, 1 

SL4:DR1:ASM IPL. SRC1, IPL.OBJ, 6, 1 

SL4 : DR2 : ASM UMGR. SRC, UMGR. OB J, 6 , 1 

SL4 : DR2 : ASM DISK3.SRC, DISK3 .OBJ, 6, 1 

SL4 : DR2 : ASM SYSERR. SRC, SYSERR. OBJ, 6, 1 

SL4 : DR2 : ASM DEVMGR . SRC , DEVMGR . OBJ , 6, 1 

SL4 : DR2 : ASM SCMGR.SRC, SCMGR.OBJ, 6, 1 

SL4 : DR2 : ASM FMGR.SRC, FMGR.OBJ, 6, 1 

SL4 : DR2 : ASM CFMGR. SRC, CFMGR. OBJ, 6, 1 

SL4 : DR2 : ASM BUFMGR. SRC, BUFMGR. OBJ, 6, 1 

SL4 : DR2 : ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 

: : END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. SOS 

************************************************************************* 



End of File 



Lines: 28 Characters: 1039 
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FILE : "SOS. CREATE. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: CREATE 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



CREAT1 
ZERCALL 



PAGE 

EQU 

INC 

JSR 

BCS 

LDA 

SEC 

RTS 

CMP 
BNE 
LDA 
BNE 
LDA 
SEC 
RTS 

LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDY 
BEQ 
DEY 
CPY 
BCC 
LDA 
RTS 

LDA 
STA 
DEY 
BPL 
LDY 
LDA 
TAY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
BCS 
LDA 
CMP 
BCC 
JMP 
PAGE 

LDX 
LDA 
BEQ 
LDA 
SEC 
RTS 



CFLAG 
LOOKFILE 
TSTFNF 
tDUPERR 



tFNFERR 

CRERR1 

NOFREE 

CREAT1 

#DIRFULL 



#$9 
#0 

C.FILID, Y 

ZERCALL 
#SEEDTYP 
C . STOR 
C . XLEN 
CRENAM 

#$9 

MOVPARM 
#BADLSTCNT 



(C.XLIST) , Y 
C.FILID, Y 

MOVPARM 
#0 

(PATHNML) , Y 

(PATHNML) , Y 
DFIL+D.STOR, Y 



SAY WE ARE IN CREATE (DIR EXTEND) 
CHECK FOR DUPLICATE / GET FREE ENTRY 
ERROR CODE IN ACC MAY BE 'FILE NOT FOUND' 
TELL EM A FILE OF THAT NAME ALREADY EXISTS 
INDICATE ERROR ENCOUNTERED 
RETURN ERROR IN ACC. 

'FILE NOT FOUND' IS WHAT WE WANT 

PASS BACK OTHER ERROR. 

TEST FOR DIRECTORY SPACE 

BRANCH IF VALID FREE ENTRY WAS FOUND . 

RETURN DIRECTORY FULL ERROR 



SET UP DEFAULT PARAMETERS FOR CREATE 
IN THE SPACE DIRECTLY FOLLOWING THE 
CALL SPECIFCATION AND THEN 
CHECK FOR ADDITIONAL PARAMETERS FROM 
USER'S CALL SPEC VIA 'C.CLIST' 
DEFAULT TYPE IS 'SEED' TREE INDEX 

GET THE LENGTH OF THE CALL XTENSION LIST 
IF ZERO THEN USE DEFAULTS 
(SINCE THE POINTER IS AT BYTE 0) 
MAKE SURE WE DON'T HAVE TOO MANY PARAMETERS 
MOVE 'EM IF REASONABLE COUNT. 
INVALID LIST COUNT 
RETURN ERROR. 

MOVE IN THE USER SPECIFIED 
PARAMETERS. VALIDITY IS CHECKED 
AT VARIOUS POINTS FURTHER ALONG IN 
THIS PROCESS. 

MOVE LOCAL FILE NAME TO ENTRY BUFFER. 
GET LENGTH OF LOCAL NAME 



(MOVE ALL, INCLUDING LENGTH BYTE.) 



CRENAM1 
C.FILID 
DFIL+D . FILID 
C.AUXID 
DFIL+D. AUXID 
C.AUXID+1 
DFIL+D. AUXID+1 

IREADEN+WRI TEN+RENAMEN+DSTROYEN 
DFIL+D. ATTR 



; MOVE FILE AND AUX ID. 



D . HEAD 

DFIL+D. DHDR 

D.HEAD+1 

DFIL+D. DHDR+1 

TWRPROT1 

CRERR1 

C . STOR 

#4 

SEED 
NOTREE 



tSEEDTYP 
C . EOFHH 
SEED1 
#OVRERR 



SEED1 



SAVE FILE'S HEADER ADDRESS TOO. 



; CAN WE WRITE TO THIS DISKETTE? 

; NOW TEST STORAGE TYPE FOR TREE TYPE FILES 

; NOTE: THIS IS HARD CODED SINCE ALL TREES ARE LESS THAN 4 *********** 

; BRANCH IF SOME TYPE OF TREE (SEED, SAPLING...) 

; GO TEST FOR SOME OTHER TYPE (SUCH AS DIRECTORY) . 



START OUT ASSUMING A SEED FILE 
TEST FOR OUT OF RANGE P REALLOCATION 
(HOPEFULLY BRANCH ALWAYS) 
REPORT UNABLE TO SATISFY REQUEST. 
INDICATE ERROR 



; CALCULATE THE NUMBER OF 
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000077 




STA 


DFIL+D .EOF+2 


BLOCKS NEEDED FOR PRE -ALLOCATION 


000078 




LSR 


A 




n n n n "~i n 

000079 




TAY 




Y HOLDS THE NUMBER OF INDEX BLOCKS NEEDED 


n n n n o n 

000080 




STA 


DATBLKH 




n n n n o i 

000081 




LDA 


C . EOFLH 


(CARRY UNDISTURBED FROM LAST SHIFT) 


r\ n n r\ o ^ 

ooooaz 




STA 


DFIL+D. EOF+1 




0U0083 




ROR 


A 


WE NOW HAVE THE LOW ORDER COUNT OF NEEDED DATA BLOCKS 


000084 




STA 


DATBLKL 




000085 




LDA 


C . EOFLL 




000086 




STA 


DFIL+D .EOF 


(CARRY IN TACT FROM LOW COUNT) 


000087 




BNE 


INC DATA 


BUMP THE COUNT ON DATA BLOCKS IF REQUEST 


n n n n o o 

000088 




BCC 


TSTSAP 


IS NOT A MULTIPLE OF 512. 


000089 


INC DATA 


INC 


DATBLKL 




ooooyo 




BNE 


TSTSAP 




ooooyi 




I NY 




MUST INCREASE NUMBER OF INDEXES ALSO. 


000092 




INC 


DATBLKH 




000093 


TSTSAP 


TYA 




IF NON ZERO, THEN IT'S AT LEAST A SAPLING. 


000094 




BNE 


SAPLING 




000095 




LDA 


DATBLKL 


TO QUALIFY AS AN HONEST SEED, 


000096 




BNE 


TSTSEED 


THEN ONE OR LESS DATA BLOCKS REQUESTED 


00009 / 




INC 


DATBLKL 


(MUST BE AT LEAST ONE BLOCK ALLOCATED 


n n n n n ci 

000098 




BNE 


CREALC 


TYPE IS SEED. BRANCH ALWAYS 


n n n n n n 

000099 


TSTSEED 


CMP 


#1 


IF GREATER THAN ONE, IT'S NOT A SEED. 


n n n n n n 

000100 




BEQ 


CREALC 


IT IS A SEED. CONTINUE CREATION 


n n n i ni 
0U01U1 




INX 




THE TYPE IS SAPLING . 


000102 




I NY 




ONE INDEX BLOCK IS NEEDED. 


000103 




BNE 


CREALC 


BRANCH ALWAYS 


000104 




PAGE 






000105 










n n n n n /~ 

000106 


SAPLING 


INX 




TYPE IS AT LEAST SAPLING. 


n n n *\ r\~i 

00010 / 




CMP 


#1 


NO MORE THAN ONE INDEX BLOCK FOR A SAPLING 


n n n n no 

000108 




BNE 


TREE 




n n n *\ nn 

000109 




LDA 


DATBLKL 


MUST BE SURE THIS IS REAL MAX SAPLING (128K FILE) 


n n n i i n 

000110 




BEQ 


CREALC 


BRANCH IF IT IS. 


000111 


TREE 


I NY 




ACCOUNT FOR ADDITIONAL 2ND LEVEL INDEX 


000112 










000113 




INX 




TYPE IS TREE (2 LEVEL INDEX) 


000114 




I NY 




ADD AN EXTRA INDEX BLOCK FOR TOP INDEX 


000115 


CREALC 


STY 


INDXBLK 


STORE INDEX BLOCK COUNT 


m n n i i /~ 

000116 




TXA 




PUT STORAGE TYPE IN DIRECTORY ENTRY 


000117 




ASL 


A 




000118 




ASL 


A 




n n n i i n 

000119 




ASL 


A 




000120 




ASL 


A 




000121 




ORA 


DFIL+D . STOR 




000122 




STA 


DFIL+D . STOR 




000123 




STX 


LEVELS 


SAVE NUMBER OF INDEX LEVELS FOR PREALLOCATION . 


000124 




TYA 




NOW FIGURE THE TOTAL NUMBER OF 


n n n *\ n c 

000125 




CLC 




BLOCKS NEEDED (DATA + INDEX BLOCKS) 


000126 




ADC 


DATBLKL 




000127 




STA 


DFIL+D . USAGE 


(MIGHT AS WELL RECORD IT IN DIR 


0U0128 




STA 


REQL 


WHILE WE ' RE AT IT . ) 


000129 




LDA 


DATBLKH 




000130 




ADC 


#0 


UPDATE HI BYTE TOO 


000131 




STA 


DFIL+D . USAGE+1 




000132 




STA 


REQH 




000133 




LDX 


D . DEV 


PASS ALONG THE DEVICE WE'RE TALKIN ABOUT. 


000134 




JSR 


TSFRBLK 


'TEST FREE BLOCKS' FINDS OUT IF ENOUGH FREE SPACE EXISTS 


000135 




BCS 


OVFLOW 


BRANCH IF NOT ENOUGH SPACE. 


000136 




JSR 


ALC1BLK 


GO ALLOCATE FIRST BLOCK 


0U013 / 




BCS 


CRERR 




000138 




STA 


DFIL+D . FRST 


(RETURNS ACC— LOW Y— HIGH) 


000139 




STA 


I DXADRL 


SAVE AS ADDRESS FOR INCORE INDEX ALSO. 


n n n i /in 
0U0140 




STY 


DFIL+D . FRST+1 




000141 




STY 


I DXADRH 




000142 




JSR 


ZERGBUF 


GO CLEAN OUT GBUF 


n n n i a o 

000143 




JSR 


GTTINDX 


GET TEMPORARY SPACE FOR AN INDEX BLOCK 


000144 




JSR 


ZTMPIDX 


AND ZERO IT OUT. 


n n n t a c 

000145 




LDX 


LEVELS 




n n n i /ir 
UU U 1 4 D 




DEX 




TEST FOR NUMBER OF LEVELS NEEDED . 


000147 




BEQ 


ENDCRE 


BRANCH IF SEED FILE. 


000148 




DEX 




IS IT A SAPLING PRE -ALLOCATION . 


000149 




BEQ 


SAPFILE 




000150 




LDY 


INDXBLK 


LOAD NUMBER OF INDEX BLOCKS NEEDED 


000151 




DEY 




REMOVE THE ONE JUST ALLOCATED. 


000152 




STY 


REQL 




000153 




STY 


INDXBLK 




000154 




JSR 


ALCIDXS 


GO ALLOCATE INDEXES FOR LOWER INDEX BLOCKS. 


000155 




BCS 


CRERR 




000156 




JSR 


WRTDFRST 


GO WRITE TREE TOP INDEX BLOCK. 


000157 




BCS 


CRERR 


BRANCH IF UNABLE TO DO THIS. 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



SAPFILE 
LSTSAP 



LDA 

STA 

PAGE 

LDY 

LDA 

STA 

INC 

LDA 

STA 

DEC 

DEC 

BEQ 

LDA 

STA 

JSR 

BCS 

JSR 

BCS 

INC 

JSR 

BCC 

SEC 

RTS 



EQU 
LDA 
STA 
JSR 
BCS 
JSR 
BCS 
LDX 
LDA 
STA 
DEX 
BPL 
INC 
BNE 
INC 
LDX 
LDA 
STA 
DEX 
BPL 
LDX 
JSR 
BCS 
JSR 
RTS 

PAGE 

JSR 

LDA 

STA 

JSR 

BCS 

LDY 

STY 

LDA 

STA 

INC 

LDA 

STA 

DEC 

JSR 

BCS 

LDA 

STA 

LDY 

I NY 

DEC 

BEQ 

STY 

LDA 

STA 

INC 

TAX 

BNE 

CMP 

BNE 



#0 

TREPTR 

TREPTR 

(TINDX) , Y 

IDXADRL 

TINDX+1 

(TINDX) , Y 

IDXADRH 

TINDX+1 

INDXBLK 

LSTSAP 

#0 

REQL 

SAPINDX 

CRERR 

WRTINDX 

CRERR 

TREPTR 

RDFRST 

FILLTREE 



DATBLKL 

REQL 

SAPINDX 

CRERR 

WRTINDX 

CRERR 

#3 

DATELO, X 
DFIL+D . CREDT , X 

TRETIME 
H . FCNT 
ENDCRE1 
H.FCNT+1 

#3 

DATELO, X 
DFIL+D . MODDT , X 

ENDCRX 

D.DEV 

UPBMAP 

CRERR2 

DREVISE 



ZTMPIDX 

REQL 

TLINK 

ALCIDXS 

CRERR 

#0 

SAPTR 

(TINDX) , Y 
BLOKNML 
TINDX+1 

(TINDX) , Y 
BLOKNMH 
TINDX+1 
WRTGBUF 
CRERR 
TLINK 
REQL 
SAPTR 

REQL 
DAT DONE 
SAPTR 
(TINDX) , Y 
BLOKNML 
TINDX+1 

DATIT1 
(TINDX) , Y 
DATIT1 



INIT INDEX POINTER 



GET ADDRESS OF LOWER BLOCK 

BUMP TO PAGE 2 TO GET HI ADDRESS. 
GET HIGH ADDRESS. 

CLEAN UP AFTER SELF . . . 

IS THIS THE LAST BLOCK ALLOCATED? 

YES, ALLOCATE PARTIAL FILLED INDEX BLOCK 

ALLOCATE ALL 256 INDEXES 

AND WRITE ZEROED DATA BLOCKS. 
STOP IF ERROR ENCOUNTERED. 
WRITE INDEX BLOCK 
HOPEFULLY NEVER TAKEN. 

READ IN TOP INDEX AGAIN. 
BRANCH IF NO ERROR. 
JUST IN CASE IT WAS CLEAR. 
RETURN ERROR. 



GET NUMBER OF DATA BLOCKS (LOW BYTE) REQUESTED. 
GO ALLOCATE DATA BLOCKS AND WRITE EM. 
GO WRITE INDEX BLOCK. (FOR SEED THIS IS DATA.) 
MOVE CREATION TIME FOR THIS ENTRY 

ADD ONE TO TOTAL NUMBER OF FILES IN SPECIFIED DIRECTORY. 



ENSURE MOD 

DATE/TIME 

IS 

INITIALIZED 

UPDATE APPROPRIATE BIT MAP 

BRANCH ON BITMAP UPDATE ERR 
UPDATE DIRECTORY LAST 
RETURN ERRORS OR OK RESULT 



; ZERO OUT ANY STUFF LEFT OVER. 

; PRESERVE REQUEST COUNT 

; GO ALLOCATE REQUESTED NUMBER OF BLOCKS. 

; THEN WRITE ZEROS TO DATA BLOCKS. 

; USE AS POINTER TO INDEX BLOCK 

; GET DATA BLOCK ADDRESS (LOW BYTE) . 



; GET HIGH ADRRESS OF PRE-ALLOCATED DATA BLOCK. 

; (RESET BUFFER ADDRESS) 
; WRITE DATA BLOCK 

; GET NUMBER REQUESTED AGAIN 

GET POINTER TO INDEX BLOCK AGAIN. 

ANTICIPATE DOIN' THE NEXT DATA BLOCK 

DO WE INDEED HAVE ANOTHER BLOCK TO WRITE. 

NO, ALL DONE (CARRY CLEAR) . 

USE AS POINTER TO INDEX BLOCK 

GET DATA BLOCK ADDRESS (LOW BYTE) . 

; BUMP HI ADDR OF INDEX BUFFER TO ACCESS HIGH ADDR. 

; WAS LOW ADDRESS A ZERO? 

; IF NOT, NO NEED TO CHECK VALIDITH OF HI BYTE 

; BOTH BYTES CAN'T BE ZERO. 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



DATDONE 
REPEATIO 



ZERGBUF 
ZGBUF 



ZTMPIDX 
ZINDX1 



ZINDX2 



CRERR2 
NOTREE 



DADD1 
TSDIRSZ 



LDA 
JSR 
LDA 
STA 
DEC 
LDA 
STA 
JSR 
BCC 
RTS 

EQU 
LDA 
STA 
JMP 

LDY 
TYA 
STA 
STA 
I NY 
BNE 
RTS 



LDY 

TYA 

STA 

I NY 

BNE 

INC 

STA 

I NY 

BNE 

DEC 

RTS 

PAGE 

CMP 

BEQ 

JMP 

LDA 
ORA 
BEQ 
LDA 
SEC 
RTS 

LDA 
LSR 
TAY 
LDA 
BNE 
BCC 
I NY 
TYA 
BEQ 
STA 
STA 
ASL 
STA 
LDA 
STA 
STA 
STA 
JSR 
BCS 
JSR 
JSR 
BCS 
STA 
STA 
STY 
STY 
LDA 
STA 
LDA 
STA 
LDY 
BNE 
LDA 



#ALCERR 
SYSDEATH 
(TINDX) , Y 
BLOKNMH 
TINDX+1 
#GBUF/256 
DBUFPH 
REPEATIO 
DATINIT 



tRPTCMD 

DHPCMD 

RPEATIOl 



GET HIGH ADRRESS OF PRE -ALLOCATED DATA BLOCK. 
(RESET BUFFER ADDRESS) 



RESET TO ADDR TO GBUF JUST TO BE SURE. 
WRITE DATA BLOCK 



RETURN STATUS (CARRY SET IF ERROR) 



#0 



GBUF, Y 
GBUF+$100, Y 



#0 

(TINDX) , Y 

ZINDX1 
TINDX+1 
(TINDX) , Y 

ZINDX2 
TINDX+1 



tDIRTYP 

ISDIR 

NOTDIR 

C . EOFHH 
C . EOFHL 
ISDIR1 
#OVRERR 



C.EOFLH 
A 

C.EOFLL 

DADD1 

TSDIRSZ 



DADD1 

DFIL+D. USAGE 

REQL 

A 

DFIL+D. EOF+1 
#0 

DFIL+D. EOF 

DFIL+D. EOF+2 

REQH 

TSFRBLK 

DIROVR 

ZERGBUF 

ALC1BLK 

CRERR2 

DFIL+D. FRST 

TLINK 

DFIL+D. FRST+1 

TLINK+1 

SOSTMPL 

GBUF 

SOSTMPH 

GBUF+1 

#4 

DRSTUF1 

D . ENTBLK, Y 



ZERO OUT THE GENERAL PURPOSE BUFFER 



WIPE OUT BOTH PAGES 
WITH SAME LOOP. 



ZERO OUT TEMPORARY INDEX BLOCK 



THIS HAS TO BE DONE A 
TIME SINCE IT'S INDIRECT. 



RESTORE PROPER ADDRESS 



IS A DIRECTORY TO BE CREATED? 

YES, DO SO. . . 

NO, TRY NEXT TYPE. 

CAN'T CREATE A DIRECTORY LARGER THAN 
127 BLOCKS (THAT'S HUGE!) 
BRANCH IF WITHIN LIMITS, OTHEWISE 
REQUESTED DIRECTORY SIZE CAN'T BE 
CREATED. SET CARRY TO INDICATE ERROR. 



CALCULATE HOW MANY BLOCKS WILL 
BE NEEDED FOR THIS NEW DIRECTORY. 
(SAVE INITIAL COUNT IN Y) 
IF REQUESTED EOF IS NOT AN EVEN BLOCK 
SIZE, THEN ROUND UP. 
BRANCH IF ROUNING UNNECESSARY . 
ADD ONE TO BLOCK COUNT. 

TEST TO BE SURE SIZE IS GREATER THAN ZERO 

IF ZERO THEN SIZE=1 

SAVE NUMBER OF BLOCKS TO BE USED. 

; NOW SAVE ADJUSTED END OF FILE 



REQUESTED NUMBER OF BLOCKS NEVER EXCEEDS 128 
TEST TO BE SURE ENOUGH DISK SPACE IS FREE. 
BRANCH IF REQUEST TOO LARGE. 
CLEAR CRAP FROM GBUF. 

GET ADDRESS OF FIRST (HEADER) BLOCK. 



(TLINK IS FOR REVERSE LINKAGE.) 
STORE SOS STAMP IN NEW DIRECTORY 



MOVE OTHER VARIOUS THINGS 

BRANCH ALWAYS 

MOVE OWNING ENTRY'S 
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000320 




STA 


GBUF+HRBLK+4 , Y 


BLOCK ADDRESSES AND NUMBER TO NEW HEADER. 


000321 


DRSTUF1 


LDA 


SOSVER, Y 


MOVE VERSION, COMPATABLITY, 


000322 




STA 


GBUF+HVER+4 , Y 


ATTRIBUTES, AND ENTRY SIZE 


r\ n r\ o n o 

000323 




DEY 






000324 




BPL 


DRSTUF 




000325 




LDA 


H . ENTLN 


OVER WRITE LAST BYTE MOVED IN ABOVE LOOP WITH 


000326 




STA 


GBUF+HRELN+4 


THE PARENT DIRECTORY ENTRY LENGTH. 


000327 




LDA 


DFIL+D. STOR 


SET HEADER TYPE AND NAME 


000328 




TAY 






000329 




ORA 


#HEDTYP*16 




000330 




STA 


GBUF+HNLEN+ 4 




000331 




TYA 




(AND WHILE WE'RE AT IT SET DIRECTORY TYPE) 


000332 




ORA 


#DIRTYP*16 




000333 




STA 


DFIL+D. STOR 




000334 










000335 


MVHNAME 


LDA 


DFIL+D . STOR, Y 




000336 




STA 


GBUF+HNLEN+4 , Y 


MOVE HEADER NAME 


000337 




DEY 






r\ n n o o o 

000338 




BNE 


MVHNAME 




000339 




LDX 


#3 


GET CURRENT DATE . 


000340 


CRETIME 


LDA 


DATELO, X 




000341 




STA 


GBUF+HCRDT+4 , X 


SAVE AS HEADER CREATION TIME 


000342 




STA 


DFIL+D . CREDT, X 


AND DATE OF FILE CREATE. 


000343 




DEX 






000344 




BPL 


CRETIME 




000345 




LDA 


#$76 




000346 




STA 


GBUF+HPENAB+4 


DUMMY PASSWORD 


000347 




DEC 


REQL 


TEST FOR ONE BLOCK DIRECTORY 


000348 




BEQ 


DIRCREND 


IT IS, FINISH UP. 


000349 




JSR 


DIRWRT 


GO WRITE FIRST DIRECTORY BLOCK AND ALLOCATE NEXT 


000350 




BCS 


DERROR 


PASS BACK ERROR. 


000351 




JSR 


ZERGBUF 


CLEAN OUT GENERAL BUFFER AGAIN . 


000352 


CRNXTDIR 


LDA 


TLINK 


MOVE LAST BLOCK ADDRESS 


000353 




STA 


GBUF 


AS BACKWARD LINK. 


000354 




LDA 


TLINK+1 




000355 




STA 


GBUF+1 




000356 




LDA 


FLINK 


MAKE FORWARD LINK INTO CURRENT ADDRESS 


000357 




STA 


TLINK 




000358 




LDA 


FLINK+1 




000359 




STA 


TLINK+1 




000360 




DEC 


REQL 


IS THIS THE LAST BLOCK? 


000361 




BEQ 


DIRCREND 




000362 




JSR 


DIRWRT 


WRITE THIS BLOCK AND ALLOCATE NEXT. 


000363 




BCS 


DERROR 




000364 




LDA 


#0 


ZERO OUT FORWARD LINK 


000365 




STA 


GBUF+2 




000366 




STA 


GBUF+3 




000367 




BEQ 


CRNXTDIR 


BRANCH ALWAYS 


000368 










000369 


DIRCREND 


JSR 


DIRWRT1 


WRITE LAST BLOCK OF THIS DIRECTORY 


000370 




BCS 


DERROR 




000371 




JMP 


ENDCRE0 


FINISH UP WRITING OWNER DIRECTORY STUFF. 


000372 










000373 


DIRWRT 


JSR 


ALC1BLK 


GET ADDRESS OF NEXT BLOCK. 


000374 




BCS 


DERROR 




000375 




STA 


GBUF+2 




000376 




STY 


GBUF+3 


SAVE LINK ADDRESS 


000377 




STA 


FLINK 




000378 




STY 


FLINK+1 




000379 


DIRWRT1 


LDA 


TLINK 


GET ADDRESS OF CURRENT BLOCK 


r\ n r\ o o n 

000380 




STA 


BLOKNML 




000381 




LDA 


TLINK+1 




000382 




STA 


BLOKNMH 




000383 




JMP 


WRTGBUF 


GO WRITE IT OUT 


000384 




PAGE 






000385 










000386 


ERRGBUF 


EQU 






000387 


DERROR 


RTS 






000388 










000389 










000390 


SOSTMPL 


DFB 


$0 


THE FOLLOWING TWO BYTES ARE THE 'SOS STAMP' 


000391 


SOSTMPH 


DFB 


$0 




000392 










000393 


SOSVER 


DFB 


0,0,0, $27, 13 




000394 










000395 










000396 


RNDTAB 


EQU 






000397 


ENTCALC 


LDA 


#GBUF/256 


SET HIGH ADDRESS OF DIRECTORY ENTRY INDEX POINTER 


000398 




STA 


DRBUFPH 




000399 




LDA 


#4 


CALCULATE ADDRESS OF ENTRY BASED 


000400 




LDX 


D . ENTNUM 


ON THE ENTRY NUMBER 
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000401 


ECALCO 


CLC 






000402 


ECALC1 


DEX 




; ADDR-GBUF+ ( (ENTNUM-1) *ENTLEN) 


000403 




BEQ 


ECALC2 




000404 




ADC 


H . ENTLN 




000405 




BCC 


ECALC1 




000406 




INC 


DRBUFPH 


; BUMP HI ADDRESS 


000407 




BCS 


ECALCO 


; BRANCH ALWAYS . 


000408 










000409 


ECALC2 


STA 


DRBUFPL 


; SAVE NEWLY CALCULATED LOW ADDRESS 


000410 




RTS 






000411 




PAGE 






000412 


DERR0R2 


RTS 






000413 










000414 


DREVISE 


LDA 


DATELO 


; IF NO CLOCK, 


000415 




BEQ 


DREVISE1 


; THEN DON'T TOUCH MOD T/D 


000416 




LDX 


#3 


; MOVE LAST MODIFICATION DATE/TIME TO ENTRY BEING UPDATED 


000417 


MO DTI ME 


LDA 


DATELO, X 




000418 




STA 


DFIL+D .MODDT, X 




000419 




DEX 






000420 




BPL 


MO DTI ME 




000421 










000422 


DREVISE1 


LDA 


DFIL+D .ATTR 


; MARK ENTRY AS BACKUPABLE 


000423 




ORA 


BKBITFLG 


; BIT 5 = BACKUP NEEDED BIT 


000424 




STA 


DFIL+D .ATTR 




000425 




LDA 


D . DEV 


; GET DEVICE NUMBER OF DIRECTORY 


000426 




STA 


DEVNUM 


; TO BE REVISED. 


000427 




LDA 


D . ENTBLK 


; AND ADDRESS OF DIRECTORY BLOCK 


000428 




STA 


BLOKNML 


; THAT CONTAINS THE ENTRY. 


000429 




LDA 


D . ENTBLK+1 




000430 




STA 


BLOKNMH 




000431 




JSR 


RDGBUF 


; READ BLOCK INTO GENERAL PURPOSE BUFFER. 


000432 




BCS 


ERRGBUF 




000433 




JSR 


ENTCALC 


; FIX UP POINTER TO ENTRY LOCATION WITHIN GBUF. 


000434 




LDY 


H . ENTLN 


; NOW MOVE 'D. 1 STUFF TO DIRECTORY. 


000435 




DEY 






000436 


MVDENT 


LDA 


DFIL+D . STOR, Y 




000437 




STA 


(DRBUFPL) , Y 




000438 




DEY 






000439 




BPL 


MVDENT 




000440 




LDA 


D . HEAD 


; IS THE ENTRY BLOCK THE SAME AS THE 


000441 




CMP 


BLOKNML 


; ENTRY'S HEADER BLOCK? 


000442 




BNE 


SVENTDIR 


; NO, SAVE ENTRY BLOCK 


000443 




LDA 


D . HEAD+1 


; MAYBE, TEST HIGH ADDRESSES 


000444 




CMP 


BLOKNMH 




000445 




BEQ 


UPHEAD 


; BRANCH IF THEY ARE THE SAME BLOCK. 


000446 


SVENTDIR 


JSR 


WRTGBUF 


; WRITE UPDATED DIRECTORY BLOCK 


000447 




BCS 


DERROR2 


; RETURN ANY ERROR. 


000448 




LDA 


D . HEAD 


; GET ADDRESS OF HEADER BLOCK 


000449 




STA 


BLOKNML 




000450 




LDA 


D . HEAD+1 




000451 




STA 


BLOKNMH 




000452 




JSR 


RDGBUF 


; READ IN HEADER BLOCK FOR MODIFICATION 


000453 




BCS 


DERROR2 




000454 


UPHEAD 


LDY 


#1 


; UPDATE CURRENT NUMBER OF FILES IN THIS DIRECTORY 


000455 


UPHED1 


LDA 


H . FCNT, Y 




000456 




STA 


GBUF+HCENT+4 , Y 


; (CURRENT ENTRY COUNT) 


000457 




DEY 






000458 




BPL 


UPHED1 




000459 




LDA 


H . ATTR 


; ALSO UPDATE HEADER'S ATTRIBUTES. 


000460 




STA 


GBUF+HATTR+4 




0004 61 




JSR 


WRTGBUF 


; GO WRITE UPDATED HEADER 


000462 


DERROR1 


RTS 




; IMPLICITLY RETURN ANY ERRORS 


000463 










000464 




PAGE 






000465 










000466 


NOTDIR 


LDA 


#TYPERR 


; NOT TREE OR DIRECTORY- NOT A RECOGNIZED TYPE! 


000467 


TSTERR 


SEC 






000468 




RTS 




; DO NOTHING. 


000469 










000470 










000471 


TSTSOS 


LDA 


GBUF 


; TEST SOS STAMP 


000472 




CMP 


SOSTMPL 




000473 




BNE 


TSTERR 




000474 




LDA 


GBUF+1 




000475 




CMP 


SOSTMPH 




000476 




BNE 


TSTERR 




000477 




LDA 


GBUF+4 


; TEST FOR HEADER 


000478 




AND 


#$E0 




000479 




CMP 


#HEDTYP*16 




000480 




BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


000481 




CLC 




; INDICATE NO ERROR 
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000482 


RTS 






000483 








000484 


CHN 


FNDFIL, 4 , 1 




000485 


NE TSTERR 






000486 


LDA 


GBUF+4 


; TEST FOR HEADER 


000487 


AND 


#$E0 




000488 


CMP 


#HEDTYP*16 




000489 


BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


000490 


CLC 




; INDICATE NO ERROR 


000491 


RTS 






000492 








000493 


CHN 


FNDFIL, 4 , 1 




000494 


ERROR 






000495 


RTS 






000496 








0004 97 


CHN 


FNDFIL, 4 , 1 




000498 


ENTRY 


TOO. 




000499 


LDY 


#D.MODDT+3 




000500 


RIPTIME LDA 


DATELO, X 




000501 


STA 


(DRBUFPL) , Y 




000502 


DEY 






000503 


DEX 






000504 


BPL 


RIPTIME 


;MOVE ALL FOR BYTES... 


000505 


RUPDATE JSR 


WRTGBUF 


; WRITE UPDATED ENTRY BACK TO DISK. (ASSUMES BLOKNM UNDISTURBEDD) 


000506 


BCS 


DERROR1 


;GIVE UP ON ANY ERROR. 


000507 


LDY 


#D. DHDR 


;NOW COMPARE CURRENT BLOCK NUMBER TO THIS 


000508 


LDA 


(DRBUFPL) , Y 


; ENTRY ' S HEADER BLOCK 


000509 


I NY 






000510 


CMP 


BLOKNML 


;ARE LOW ADDRESSES THE SAME? 


000511 


STA 


BLOKNML 


,* (SAVE IT IN CASE IT'S NOT) 


000512 


BNE 


RIPPLE2 


/BRANCH IF ENTRY DOES NOT RESIDE IN SAME BLOCK AS HEADER. 


000513 


LDA 


(DRBUFPL) , Y 


; CHECK HIGH ADDRESS JUST TO BE SURE. 


000514 


CMP 


BLOKNMH 




000515 


BEQ 


RIPPLE 


; THEY ARE THE SAME, CONTINUE RIPPLE TO ROOT DIRECTORY. 


000516 


RIPPLE2 LDA 


(DRBUFPL) , Y 


;THEY AREN'T THE SAME, READ IN THIS DIRECTORY'S HEADER. 


000517 


STA 


BLOKNMH 




000518 


JSR 


RDGBUF 




000519 


BCC 


RIPPLE 


,*CONTINUE IF READ WAS GOOD. 


000520 


DERROR1 EQU 






000521 


RTS 






000522 


PAGE 






000523 








000524 


NOTDIR LDA 


#TYPERR 


;NOT TREE OR DIRECTORY- NOT A RECOGNIZED TYPE! 


000525 


TSTERR SEC 






000526 


RTS 




;DO NOTHING. 


000527 








000528 








000529 


TSTSOS LDA 


GBUF 


; TEST SOS STAMP 


000530 


CMP 


SOSTMPL 




000531 


BNE 


TSTERR 




000532 


LDA 


GBUF+1 




000533 


CMP 


SOSTMPH 




000534 


BNE 


TSTERR 




000535 


LDA 


GBUF+4 


; TEST FOR HEADER 


000536 


AND 


#$E0 




000537 


CMP 


#HEDTYP*16 




000538 


BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


000539 


DRVISDNE CLC 




/INDICATE NO ERROR./ 


000540 


RTS 






000541 


* 






000542 


CHN 


FNDFIL, 4, 1 




000543 








000544 








000545 






***************************** 


000546 


* END OF APPLE /// SOS 


1.3 SOURCE CODE FILE: 


CREATE 


000547 


******************************************************** 


End of 


File -- Lines: 547 Characters: 22694 
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FILE : "SOS. DESTROY. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 

000007 * 

000008 NEWL 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 

000019 * 

000020 OFFN 
000021 
000022 

000023 OFFR 

000024 

000025 

000026 * 

000027 GETI 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 

000057 GTIN 
TRANSLATION 



************ 



APPLE /// 



*************** 
SOS 1.3 SOURCE 



********************************************** 
CODE FILE: DESTROY 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
PAGE 



000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 



GTINF02 



GTINF03 



LDY 
LDA 
BPL 
LDA 
ORA 
STA 
LDY 
LDA 
STA 
CLC 
RTS 

LDA 
AND 
STA 
CLC 
RTS 
PAGE 

JSR 
BCC 
CMP 
SEC 
BNE 
LDA 
STA 
LDA 
STA 
STA 
JSR 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
TAX 
DEY 
LDA 
STA 
SEC 
SBC 
STA 
TXA 
SBC 
STA 
LDY 

LDA 
BPL 
AND 
BEQ 
CMP 
BNE 
LDA 
LSR 
LSR 
LSR 
LSR 
BPL 

TAX 

LDA 
STA 
I NY 
CPY 



IFCBATTR 
C.ISNEWL 
OFFNEWL 
#NLINEN 
(FCBPTR) , 
(FCBPTR) , 
fFCBNEWL 
C.NEWL 
(FCBPTR) , 



#$FF-NLINEN 
(FCBPTR) ,Y 
(FCBPTR) ,Y 



FINDFILE 

GTINFOl 

IBADPATH 

GINFOERR 
#$F0 

DFIL+D. STOR 
#0 

REQL 
REQH 
TSFRBLK 
#VCBTFRE+1 
(VCBPTR) ,Y 
REQH 

(VCBPTR) ,Y 
REQL 

(VCBPTR) ,Y 
DFIL+D. AUXID+1 



(VCBPTR) ,Y 
DFIL+D. AUXID 

REQL 

DFIL+D. USAGE 
REQH 

DFIL+D. USAGE+1 
#0 

INFTABL, Y 

GTINF03 

#$7F 

GTINF04 

#D.STOR+l 

GINFOEND 

DFIL+D. STOR 

A 

A 

A 

A 

GTINF04 



DFIL,X 
(C.FILIST) ,Y 



C.FILSTLN 



ADJUST NEWLINE STATUS FOR OPEN FILE. 
ON OR OFF? 

BRANCH IF NEW LINE IS TO BE CLEARED. 
SET NEW LINE BIT IN ATTRIBUTES 
AND MOVE IN NEW 'NEW-LINE' BYTE. 



NO ERROR POSSIBLE. 



CLEAR NEW-LINE BIT. 

THE NEW LINE CHARACTER DOES'T MATTER. 



LOOK FOR FILE THEY WANT OT KNOW ABOUT. 
BRANCH IF NO ERRORS. 
WAS IT A ROOT DIRECTORY FILE? 
(IN CASE OF NO MATCH) 



FOR GET INFO, REPORT PROPER STORAGE TYPE 
FORCE A COUNT OF FREE BLOCKS. 



(RETURNS IF IMMEDIATELY IF COUNT HAS PREVIOUSLY BEEN TAKEN) 



RETURN TOTAL BLOCKS AND TOTAL IN USE. 

FIRST TRANSFER 'FREE' BLOCKS TO ZPAGE FOR LATER SUBTRACT 



TO DETERMINE THE 'USED' COUNT 



TRANSFER TO 'D.' TABLE AS AUX I.D. 

(TOTAL BLOCK COUNT IS CONSIDERED AUX I.D. FOR THE VOLUME) 



NOW SUBTRACT AND REPORT THE NUMBER OF BLOCKS ' IN USE ' 



TRANSFER BYTES FROM THERE INTERNAL ORDER TO CALL SPEC VIA 'INFTABL' 



BRANCH IF THIS IS DATA IS VALID AS IS. 
IS THIS THE 4TH BYTE OF THE EOF PARAMETER? 
YES, AND IT'S ALWAYS A ZERO. 
IS THIS THE STORAGE TYPE BYTE? 

NO, IT'S THE END OF INFO THAT CAN BE RETURNED. 
GET STORAGE TYPE 



MAKE IT A VALUE 1-$F BY SHIFTING OUT FILE NAME LENGTH. 
BRANCH ALWAYS 

USE AS OFFSET INTO 'D.' TABLE. 
PASS TO USER'S BUFFER 
HAS REQUEST BEEN FILLED? 
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000076 




BNE 


GTINF02 






NO, PASS NEXT 


000077 


GINFOEND 


CLC 








INDICATE NO ERRORS 


n n n n "~i ci 

00007b 


GINFOERR 


RTS 










ouuo /y 














r\ r\ r\ r\ ci r\ 

000080 














n n n n o i 

ooooal 




PAGE 










n n n n o o 

000082 














000083 


SETINFO 


JSR 


FINDFILE 






FIND WHAT USER WANTS . . . 


000084 




BCS 


SINFOERR 






RETURN ANY FAILURE . 


000085 




LDA 


C . FILSTLN 






TEST FOR NUL CHANGE 


n n n n ci r 

000086 




BEQ 


SINFEND 






BRANCH IF NOTHING TO CHANGE. 


n n n n o "~7 

00008 7 




LDY 


#0 






INIT POINTER TO USER SUPPLIED LIST. 


n n n n o o 

000088 




LDA 


(C . FILIST) , Y 






FETCH FILE ATTRIBUTES 


n n n n o n 

000089 




AND 


#$1C 






FORBIDDEN BITS? <SRS 82.162> 


ooooyu 




BEQ 


SETINF1 






NO 


ouooyi 




LDA 


#ACCSERR 






YES 


000092 




SEC 










000093 




RTS 








RETURN AN ERROR 


r\ n n r\ ri yi 
000094 


SETINF1 


LDA 


BACKMASK 






GET CURRENT BACKMASK <SRS 82.162> 


000095 


* BACKUP KNOWS 


HOW TO 


RESET THIS BIT . <SRS 


12 


162> 


n n n n n r 

000096 




STA 


BKBITFLG 






BIT (USED BY DREVISE) 


n n n n n "~i 

00009 / 


SETINF1X 


LDX 


INFTABL, Y 






GET INDEX INTO CORESPONDING 'D.' TABLE 


000098 




BMI 


SETINF2 






BRANCH IF WE'VE REACHED STORAGE TYPE PARAMETER 


n n n n c\ n 

000099 




LDA 


(C . FILIST) , Y 








000100 




STA 


DFIL, X 








000101 




I NY 








HAS USER'S REQUEST BEEN SATISFIED? 


000102 




CPY 


C . FILSTLN 








000103 




BNE 


SETINF1X 






NO, MOVE NEXT BYTE. 


000104 


SINFEND 


JMP 


DREVISE 






GO UPDATE DIRECTORY WITH CURRENT TIME . 


000105 














000106 


SETINF2 


LDY 


C . FILSTLN 






TEST TO SEE IF USER WANTS HIS TIME STAMP ADDED 


000107 




CPY 


#$F 






(LIST MUST BE AT LEAST $F BYTES LONG) 


000108 




BCC 


SINFEND 






NO PUT CURRENT TIME INSTEAD. 


0UU1U9 




LDY 


#$B 






MOVE IN THE NEXT GROUP OF BYTES 


000110 


SETINF3 


LDX 


INFTABL, Y 








000111 




BMI 


SINFEND1 








000112 




LDA 


(C . FILIST) , Y 








000113 




STA 


DFIL, X 








000114 




I NY 










000115 




CPY 


C. FILSTLN 






SATISFACTION YET? 


000116 




BNE 


SETINF3 






NOPE, KEEP EM PUMPIN' 


000117 


SINFEND1 


JMP 


DREVISE 1 








000118 














000119 


BKBITFLG 


DS 


1 






FOR TURNING OFF BACKUP BIT 


000120 














000121 














000122 


INFTABL 


DFB 


D . ATTR, D . FILID, D 


AUXID, D.AUXID+1 


000123 




DFB 


D.STOR+1+$80,D.EOF 


D.EOF+l,D.EOF+2 ; (D.STOR=0 THUS D.STOR+1 WAS NECESSARY) 


000124 




DFB 


$80, D. USAGE, D.USAGE+1 


D.MODDT ; (THE $80 IS FOR THE FOURTH BYTE OF EOF) 


000125 




DFB 


D.MODDT+1, D.MODTM, D.MODTM+1, $FF ; TABLE ALWAYS ENDS IN $FF 


000126 




PAGE 










000127 














000128 


RENAME 


JSR 


LOOKFILE 






LOOK FOR SOURCE (ORIGINAL) FILE. 


0UU129 




BCC 


RNAME0 






BRANCH IF FOUND. 


000130 




CMP 


# BAD PATH 






TRYING TO RENAME A VOLUME? 


000131 




BNE 


RNAMERR 






NO, RETURN OTHER ERROR. 


000132 




JSR 


RENPATH 






SYNTAX NEW NAME. 


0UU133 




BCS 


RNAMERR 








nnni o yi 

000134 




LDA 


WRKPATH 






FIND OUT IF ONLY ROOTNAME FOR NEW NAME 


nnni z> c 
0U0135 




CMP 


PATHNML 








nnni o /" 

000136 




BNE 


RNBADPTH 






NOT SINGLE NAME, RETURN ERROR! 


000137 




LDY 


#VCBSTAT 






TEST FOR OPEN FILES BEFORE CHANGING 


000138 




LDA 


(VCBPTR) , Y 








000139 




BPL 


RNAMEVOL 






BRANCH IF VOLUME NOT BUSY 


000140 




LDA 


fFILBUSY 








000141 


SINFOERR 


EQU 


-k 








000142 




RTS 








(CARRY IS SET) 


nnni a o 

000143 


RNAMEVOL 


LDY 


#0 






GET NEWNAME'S LENGTH. 


nnni /i yi 
UU U 1 44 




LDA 


(WRKPATH) , Y 








000145 




TAY 










000146 




ORA 


#$F0 






(ROOT FILE STORAGE TYPE) 


000147 




JSR 


MVROTNAM 






UPDATE ROOT DIRECTORY. 


000148 




BCS 


RNAMERR 








000149 




LDY 


#0 








000150 




LDA 


(WRKPATH) , Y 






UPDATE VCB ALSO. 


000151 




TAY 










000152 


RNMEVOL 


LDA 


(WRKPATH) , Y 








000153 




STA 


(VCBPTR) ,Y 








000154 




DEY 










000155 




BPL 


RNMEVOL 








000156 




CLC 
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000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 



RNAMEO 



RNAME1 
SAMOWNR 



RNAME3 



JSR 

BCS 

LDY 

LDA 

TAY 

LDA 

CMP 

BNE 

DEY 

BPL 

JSR 

BCS 

LDA 

SEC 

RTS 

PAGE 

CMP 

BNE 

LDX 

LDA 

STA 

DEX 

BPL 

JSR 

BCS 

JSR 

BCS 

JSR 

LDA 

BCS 

LDA 

AND 

BNE 

LDA 

SEC 

RTS 

LDX 
LDA 
CMP 
BEQ 
LDA 
SEC 
RTS 

DEX 

BPL 

JSR 

BCS 

TYA 

BEQ 

DEY 

LDA 

STA 

DEY 

BNE 

LDA 

AND 

TAX 

ORA 

STA 

CPX 

BNE 

PAGE 

LDA 

STA 

LDA 

STA 

JSR 

BCS 

LDY 

LDA 

TAY 

ORA 

JSR 

BCS 

JMP 



RENPATH 
RNAMERR 
#0 

(PATHNML) , Y 

(PATHNML) , Y 
(VCBPTR) ,Y 
RNBADPTH 

TSTSMROT 
LOOKFILE 
TSTFNF1 
fDUPERR 



#FNFERR 
RNAMERR 

#2 

D.DEV,X 

NPATHDEV, X 

SVENEWID 

SETPATH 

RNAMERR 

FINDFILE 

RNAMERR 

TSTOPEN 

#FILBUSY 

RNAMERR 

DFIL+D.ATTR 

IRENAMEN 

RNAME1 

IACCSERR 



#2 

D.DEV,X 
NPATHDEV, X 
RNAME2 
IBADPATH 



SAMOWNR 
RENPATH 
RNAMERR 



(WRKPATH) , Y 
DFIL+D . STOR, Y 

RNAME3 
DFIL+D. STOR 
#$F0 

(WRKPATH) , Y 
DFIL+D. STOR 
#DIRTYP*16 
RNAMDONE 

DFIL+D. FRST 

BLOKNML 

DFIL+D. FRST+1 

BLOKNMH 

RDGBUF 

RNAMERR 

#0 

(WRKPATH) , Y 

#HEDTYP*16 
MVROTNAM 
RNAMERR 
DREVISE1 



SET UP AND SYNTAX NEW NAME. 

VERIFY THAT BOTH NAMES HAVE SAME ROOT. 



COMPARE NEWNAME'S ROOT NAME WITH 

OLD NAME'S VOLUME NAME . 

RETURN 'BADPATH' IF NOT SAME VOLUME. 

(TEST SAME 'ROT' ) 

TEST FOR DUPLICATE FILE NAME . 

BRANCH IF ERROR TO TEST FOR FILE NOT FOUND. 

TELL USER THAT NEW NAME ALREADY EXISTS. 



WAS IT A VALID FILE NOT FOUND? 
NO, RETURN OTHER ERROR CODE. 

NOW MOVE NEW NAME'S OWNERSHIP (DIRECTORY HEADER) I.D. 

THIS CONSISTS OF THE UNIT NUMBER, 

AND THE ADDRESS OF THE DIRECTORY THE FILE 

WASN'T FOUND IN. LOGIC BY NEGATION... 

; NOW SYNTAX THE PATHNAME OF THE FILE TO BE CHANGED. 

; GET ALL THE INFO ON THIS ONE . 

; DON'T ALLOW RENAME TO OCCUR IF FILE IS IN USE. 
; ANTICIPATE ERROR 

; TEST BIT THAT SAYS IT'S OK TO RENAME 

; BRANCH IF IT'S ALRIGHT TO RENAME. 
; OTHERWISE REPORT ILLEGAL ACCESS. 



NOW TEST TO SEE IF NEW PATHNAME FITS IN THE 
SAME DIRECTORY FILE. 



TELL USER THAT PATHNAMES INCOMPATABLE . 



; TEST ALL THREE BYTES. 

WELL... SINCE BOTH NAMES WOULD GO INTO THE 

DIRECTORY, RE-SYNTAX THE NEW NAME TO GET LOCAL NAME ADDRESS. 
(Y CONTAINS THE LOCAL NAME LENGTH+1) 

REPORT ERROR IF LENGTH INFO NOT IMMEDIATELY AVAILABLE. 
(REMOVE THE +1) 

MOVE LOCAL NAME TO DIR ENTRY WORKSPACE. 



PRESERVE FILE STORAGE TYPE. 
STRIP OFF OLD NAME LENGTH. 



ADD IN NEW NAME'S LENGTH 



THAT FILE MUST BE CHANGED ALSO. 
BRANCH IF NOT DIRECTORY TYPE. 



READ IN FIRST (HEADER) BLOCK OF SUB DIRECTORY 



REPORT ERRORS 

CHANGE THE HEADER'S NAME TO MATCH THE OWNER'S NEW NAME. 
GET LOCAL NAME LENGTH AGAIN 

ASSUME IT'S A HEADER. 



END BY UPDATING ALL PATH DIRECTORIES 
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000238 


MVROTNAM 


STA 


GBUF+4 




000239 


MVHEDNAM 


LDA 


(WRKPATH) , Y 




000240 




STA 


GBUF+4 , Y 




000241 




DEY 






000242 




BNE 


MVHEDNAM 




000243 




JMP 


WRTGBUF 


WRITE CHANGED HEADER BLOCK. 


000244 










000245 










000246 


RENPATH 


LDA 


C . NWPATH 


GET ADDRESS TO NEW PATHNAME. 


000247 




STA 


TPATH 




000248 




LDA 


C . NWPATH+1 


SET UP FOR SYNTAXING ROUTINE (SYNPATH) . 


000249 




STA 


TPATH+1 




000250 




LDA 


SSNWPATH 


(MOVE BYTE FOR SISTER PAGE, TOO.) 


000251 




STA 


SI ST PATH 




000252 




JMP 


SYNPATH 


GO SYNTAX IT. (RETURNS LAST LOCAL NAME LENGTH IN 


000253 










000254 










000255 


DEALBLK 


LDY 


#0 


BEGIN AT THE BEGINNING. 


000256 


DALBLK1 


STY 


SAPTR 


SAVE CURRENT INDEX . 


000257 




LDA 


GBUF, Y 


GET ADDRESS (LOW) OF BLOCK TO BE DEALLOCATED. 


000258 




CMP 


GBUF+$100, Y 


TEST FOR NUL BLOCK. 


000259 




BNE 


DALBLK2 


BRANCH IF NOT NUL. 


000260 




CMP 


#0 




000261 




BEQ 


DALBLK3 


SKIP IT IF NUL. 


000262 


DALBLK2 


LDX 


GBUF+S100, Y 


GET THE REST OF THE BLOCK ADDRESS. 


000263 




JSR 


DEALLOC 


FREE IT UP ON VOLUME BIT MAP. 


000264 




BCS 


DALBLKERR 


RETURN ANY ERROR. 


000265 




LDY 


SAPTR 


GET INDEX TO SAPLING LEVEL INDEX BLOCK AGAIN. 


000266 


DALBLK3 


I NY 




POINT AT NEXT BLOCK ADDRESS. 


000267 




BNE 


DALBLK1 


BRANCH IF MORE TO DEALLOCATE (OR TEST) . 


000268 




CLC 




INDICATE NO ERROR. 


000269 


DALBLKERR 


RTS 






000270 










000271 










000272 




PAGE 






000273 










000274 


DESTROY 


JSR 


FINDFILE 


LOOK FOR FILE TO BE WIPED OUT. 


000275 




BCS 


DESTERR 


PASS BACK ANY ERROR. 


r\ n r\ n ~i r 

000276 




JSR 


TSTOPEN 


IS THIS FILE OPEN? 


000277 




LDA 


TOTENT 




000278 




BEQ 


DSTROY1 


BRANCH IF FILE NOT OPEN. 


000279 




LDA 


IFILBUSY 




r\ r\ r\ o o r\ 

000280 




SEC 




INFORM USER THAT FILE CAN'T BE DESTORYED AT THIS 


000281 




RTS 






000282 










000283 


DSTR0Y1 


LDA 


#0 


FORCE PROPER FREE COUNT IN VOLUME . 


000284 




STA 


REQL 


(NO DISK ACCESS OCCURS IF ALREADY PROPER) 


000285 




STA 


REQH 




000286 




JSR 


TSFRBLK 




000287 




BCC 


DSTROY2 




000288 




CMP 


fOVRERR 


WAS IT JUST A FULL DISK? 


r\ n r\ o o rs 

000289 




SEC 






000290 




BNE 


DESTERR 


NOPE, REPORT ERROR. 


000291 










000292 


DSTR0Y2 


LDA 


DFIL+D .ATTR 


MAKE SURE IT'S OK TO DESTROY THIS FILE. 


000293 




AND 


#DSTROYEN 




000294 




BNE 


DSTROY3 


BRANCH IF OK. 


000295 




LDA 


#ACCSERR 


TELL USER IT'S NOT KOSHER. 


000296 




JSR 


SYSERR 


(RETURNS TO CALLER OF DESTORY) 


000297 










0002 98 


DSTR0Y3 


JSR 


TWRPROT1 


BEFORE GOING THRU DEALLOCATION, 


0002 99 




BCS 


DESTERR 


TEST FOR WRITE PROTECTED HARDWARE. 


000300 




LDA 


DFIL+D . STOR 


FIND OUT WHICH STORAGE TYPE. 


000301 




AND 


#$F0 


STRIP OFF NAME LENGTH. 


000302 




CMP 


#TRETYP+1*$10 


IS IT A SEED, SAPLING, OR TREE? 


000303 




BCC 


DSTREE 


BRANCH IF IT IS . 


000304 




JMP 


DSTDIR 


OTHERWISE TEST FOR DIRECTORY DESTROY. 


000305 










000306 


DSTREE 


JSR 


GTTINDX 


GET A BIT MAP BUFFER AND TEMPORARY INDEX BUFFER. 


000307 




BCS 


DESTERR 




000308 




LDA 


DFIL+D . STOR 


GET STORAGE TYPE AGAIN 


000309 




AND 


#$F0 




000310 




CMP 


#TRETYP*$10 


IS THIS A TREE (FULL 2 -LEVEL) ? 


000311 




BNE 


DSTSAP 


NO, TEST FOR SAPLING. 


000312 




JSR 


RDFRST 


READ IN ROOT INDEX FOR THIS FILE. 


000313 




BCC 


DSTRE2 


BRANCH IF ALL IS WELL. 


000314 


DESTERR 


RTS 




OTHERWISE RETURN ERROR. 


000315 










000316 


DSTSAP 


CMP 


#SAPTYP*$10 


IS IT A SAPLING 


000317 




BNE 


DSTLAST 


NO, JUST DEALLOCATE FIRST (AND ONLY) BLOCK. 


000318 




JSR 


ZTMPIDX 


CLEAR OUT TEMPORARY INDEX BUFFER. 
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000319 




LDA 


DFIL+D . FRST 


; MAKE THIS SAP LOOK LIKE A TREE. . . 


000320 




LDY 


#0 


; THIS IS DONE BY PLACING THE FIRST BLOCK ADDRESS 


000321 




STA 


(TINDX) , Y 


; IN THE TEMP (TOP) INDEX BUFFER AS 


000322 




INC 


TINDX+1 




000323 




LDA 


DFIL+D . FRST+1 


; A SUB INDEX WOULD APPEAR. 


000324 




STA 


(TINDX) , Y 




000325 




DEC 


TINDX+1 




000326 


DSTRE2 


LDY 


#0 


; BEGIN SCAN OF TOP LEVEL INDEX AT ZERO . 


000327 


DSTNXT 


STY 


TREPTR 


; SAVE POINTER TO TREE LEVEL . 


000328 




LDA 


(TINDX) , Y 


; GET BLOCK ADDRESS OF A SUB INDEX BLOCK 


000329 




INC 


TINDX+1 


; (TEST FOR NUL BLOCK) 


000330 




CMP 


(TINDX) , Y 




000331 




BNE 


DSTRE3 


; BRANCH IF WE'VE GOT AN BLOCK TO DEALLOCATE. 


000332 




CMP 


#0 


; IS ENTIRE ADDRESS ZERO? 


000333 




BEQ 


DSTRE4 


; YES, DO NEXT. (CARRY SET) 


000334 


DSTRE3 


CLC 




; INDICATE THERE IS A BLOCK OF INDEXES TO FREE UP 


000335 




STA 


BLOKNML 




000336 




LDA 


(TINDX) , Y 


; GET HI ADDRESS TOO. 


000337 




STA 


BLOKNMH 




000338 


DSTRE4 


DEC 


TINDX+1 


; (RESTORE PROPER ADDRESS FOR BUFFER) 


000339 




BCS 


DSTNXT 1 


; BRANCH IF NO SUB INDEX. 


000340 




JSR 


RDGBUF 


; USE GENERAL BUFFER FOR SUB INDEX BUFFER. 


000341 




BCS 


DESTERR 




000342 




JSR 


DEALBLK 


; GO FREE UP BLOCKS IN SUB INDEX 


000343 




BCS 


DESTERR 




000344 




LDY 


TREPTR 


; AND FREE UP SUB INDEX BLOCK TOO. 


000345 




INC 


TINDX+1 




000346 




LDA 


(TINDX) , Y 




000347 




TAX 






000348 




DEC 


TINDX+1 




000349 




LDA 


(TINDX) , Y 




000350 




JSR 


DEALLOC 




000351 




BCS 


DESTERR 




000352 




LDY 


TREPTR 




000353 


DSTNXT 1 


I NY 




; HAVE ALL SUB INDEXES BEEN LOCATED? 


000354 




BNE 


DSTNXT 


; NO, DO NEXT . . . 


000355 


DSTLAST 


LDA 


DFIL+D . FRST 


; DEALLOCATE FIRST BLCOK OF FILE. 


000356 




LDX 


DFIL+D . FRST+1 




000357 




JSR 


DEALLOC 




000358 




BCS 


DESTERR 




000359 




LDA 


#0 


; UPDATE DIRECTORY TO FREE ENTRY SPACE. 


000360 




STA 


DFIL+D . STOR 




000361 




CMP 


H . FCNT 


; FILE ENTRY WRAP? 


000362 




BNE 


DST1 


; BRANCH IF NO CARRY ADJUSTMENT 


000363 




DEC 


H . FCNT+1 


; TAKE CARRY FROM HIGH BYTE OF FILE ENTRIES 


000364 


DST1 


DEC 


H . FCNT 


; MARK HEADER WITH ONE LESS FILE 


000365 




LDX 


BMTAB 


; UPDATE (LAST) BITMAP. 


r\ n r\ o r r 

000366 




JSR 


BMAPUP 




000367 




BCS 


DESTERR 




000368 




LDY 


#VCBTFRE 




000369 




LDA 


DFIL+D . USAGE 




000370 




ADC 


(VCBPTR) , Y 




000371 




STA 


(VCBPTR) , Y 


; UPDATE CURRENT FREE BLOCK COUNT . 


000372 




I NY 






000373 




LDA 


DFIL+D .USAGE+1 




000374 




ADC 


(VCBPTR) , Y 




000375 




STA 


(VCBPTR) , Y 




000376 




LDA 


#0 


; FORCE RESCAN FROM FIRST BITMAP 


000377 




LDY 


IVCBCMAP 




000378 




STA 


(VCBPTR) , Y 




000379 




JMP 


DREVISE 


; UPDATE DIRECTORY LAST... 


000380 










000381 




PAGE 






000382 










000383 


DSTDIR 


CMP 


#DIRTYP*16 


; IS THIS A DIRECTORY FILE? 


000384 




BEQ 


DSDIR1 


; YES, PROCEED. 


000385 




LDA 


#CPTERR 


; FILE IS NOT COMPATABLE . 


000386 




JSR 


SYSERR 


; GIVE UP. 


000387 










000388 


DSDIR1 


JSR 


FNDBMAP 


; MAKE SURE A BUFFER IS AVAILABLE FOR THE BITMAP. 


000389 




BCS 


DSDIRERR 




r\ c\ f\ d d n 

uuu jyu 




LDA 


DFIL+D . FRST 


; READ IN FIRST BLOCK OF DIRECTORY INTO GBUF . 


000391 




STA 


BLOKNML 




000392 




LDA 


DFIL+D. FRST+1 




000393 




STA 


BLOKNMH 




000394 




JSR 


RDGBUF 




000395 




BCS 


DSDIRERR 




000396 




LDA 


GBUF+HCENT+4 


; FIND OUT IF ANY FILES EXIST ON THIS DIRECTORY. 


000397 




BNE 


DSDIRACC 


; BRANCH IF ANY EXIST. 


000398 




LDA 


GBUF+HCENT+ 5 




000399 




BEQ 


DSDIR2 





« Apple /// Computer • SOS 1.3 Source Code Listing • 57 of 255 




000400 


DSDIRACC 




LDA 


#ACCSERR 




000401 






JSR 


SYSERR 




000402 












00040 3 


DSDIR2 




LDA 


GBUF+2 


GET FORWARD LINK. 


000404 






CMP 


GBUF+3 


TEST FOR NO LINK. 


000405 






BNE 


DSDIR3 




000406 






CMP 


#0 




000407 






BEQ 


DSTLAST 


IF NO LINK, THEN FINISHED. 


000408 


DSDIR3 




LDX 


GBUF+3 




000409 






JSR 


DEALLOC 


FREE THIS BLOCK. 


000410 






BCS 


DSDIRERR 




000411 






LDA 


GBUF+2 




UO 04 12 






STA 


BLOKNML 




000413 






LDA 


GBUF+3 




000414 






STA 


BLOKNMH 


READ IN LINKED BLOCK. 


000415 






JSR 


RDGBUF 




000416 






BCC 


DSDIR2 


LOOP UNTIL ALL ARE FREED. 


000417 


DSDIRERR 




RTS 






00041b 












000419 












000420 






PAGE 






000421 


WORKS PC 




EQU 






000422 


V . STATUS 




DS 


1 


VOLUME STATUS, INCLUDES 'ACTIVE' IN BIT 7 


000423 


H . CREDT 




DS 


2 


DIRECTORY CREATION DATE 


000424 






DS 


2 


DIRECTORY CREATION TIME 


000425 






DS 


1 


VERSION UNDER WHICH THIS DIRECTORY WAS CREATED 


000426 






DS 


1 


EARLIEST VERSION THAT IT'S COMPATABLE WITH 


UU042 / 


H . ATTR 




DS 


1 


ATTRIBUTES (PROTECT BIT, ETC. ) 


000428 


H . ENTLN 




DS 


1 


LENGTH OF EACH ENTRY IN THIS DIRECTORY. 


000429 


H . MAXENT 




DS 


1 


MAXIMUM NUMBER OF ENTRIES PER BLOCK 


n n n /i z> n 
0004 JO 


H . FCNT 




DS 


2 


CURRENT NUMBER OF FILES IN THIS DIRECTORY 


0004.31 






DS 


2 


ADDRESS OF FIRST ALLOCATION BIT MAP 


0004 32 






DS 


2 


TOTAL NUMBER OF BLOCKS ON THIS UNIT 


000433 






DS 


5 


(FOR FUTURE EXPANSION) 


000434 












000435 


D . DEV 




DS 


1 


DEVICE NUMBER OF THIS DIRECTORY ENTRY 


000436 


D . HEAD 




DS 


2 


ADDRESS OF <SUB> DIRECTORY HEADER 


000437 


D . ENTBLK 




DS 


2 


ADDRESS OF BLOCK WHICH CONTAINS THIS ENTRY 


000438 


D . ENTNUM 




DS 


1 


ENTRY NUMBER WITHIN BLOCK. 


000439 


DFIL 




EQU 






000440 


D . STOR 




EQU 


*-DFIL 


STORAGE TYPE * 16 + FILE NAME LENGTH 


000441 






DS 


1 




000442 


- *-DFIL 


; FILE 


NAME 






000443 






DS 


15 




000444 


D . FILID 




EQU 


*-DFIL 


USER'S IDENTIFICATION BYTE 


000445 






DS 


1 




000446 


D . FRST 




EQU 


*-DFIL 


FIRST BLOCK OF FILE 


000447 






DS 


2 




000448 


D . USAGE 




EQU 


*-DFIL 


NUMBER OF BLOCKS CURRENTLY ALLOCATED TO THIS FILE 


000449 






DS 


2 




000450 


D . EOF 




EQU 


*-DFIL 


CURRENT END OF FILE MARKER 


000451 






DS 


3 




000452 


D . CREDT 




EQU 


*-DFIL 


DATE OF FILE'S CREATION 


000453 






DS 


2 




000454 


- *-DFIL 


; TIME 


OF FILE 1 


S CREATION 




000455 






DS 


2 




000456 


EQU * - 


DFIL ; 


SOS VERSION THAT CREATED THIS FILE 


000457 






DS 


1 




000458 


D . COMP 




EQU 


*-DFIL 


BACKWARD VERSION COMPATAB I LT Y 


000459 






DS 


1 




0004 60 


D . ATTR 




EQU 


*-DFIL 


'PROTECT', READ/WRITE 'ENABLE' ETC. 


0004 61 






DS 


1 




0004 62 


D . AUXID 




EQU 


*-DFIL 


USER AUXILLARY I DE NT I FACAT I ON 


0004 63 






DS 


2 




0004 64 


D . MODDT 




EQU 


*-DFIL 


FILE'S LAST MODIFICATION DATE 


0004 65 






DS 


2 




r\ n r\ a r r 

0004 66 


D . MODTM 




EQU 


*-DFIL 


FILE'S LAST MODIFICATION TIME 


000467 






DS 


2 




0004 68 


D . DHDR 




EQU 


*-DFIL 


HEADER BLOCK ADDRESS OF FILE'S DIRECTORY 


0004 69 






DS 


2 




000470 












UO 04 / I 


CMDADR 




DS 


2 




000472 


SCRTCH 




DS 


13 


SCRATCH AREA FOR ALLOCATION ADDRESS CONVERSION 


000473 


OLDEOF 




DS 


3 


TEMP USED IN W/R 


000474 


OLDMARK 




DS 


3 


USED BY 'RDPOSN' AND 'WRITE' 


000475 


SCRHIGH 




EQU 


<SCRTCH 


AND DEVICE NUMBERS FROM BOB'S CODE. 


000476 












000477 






CHN 


SWAPOUT/IN, 4, 2 




000478 












000479 




****** 


********* 


************************************************* 


000480 


* END OF 


APPLE 


III SOS 1 


.3 SOURCE CODE FILE: DESTROY 
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000481 




000482 

End of File — Lines: 482 Characters: 20557 
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FILE : " SOS. DEVMGR. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: DEVMGR. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 

INCLUDE 
ORG 
EQU 
MSB 
REP 

COPYRIGHT (C 



"SOS 1.1 DEVICE MANAGER" 

SOSORG, 6,1,254 
ORGDMGR 



REP 



OFF 
100 

APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 
100 



DEVICE MANAGER (VERSION =1.10 ) 
(DATE = 8/04/81) 

THIS MODULE IS RESPONSIBLE FOR CALLING THE CORRECT DEVICE 
DRIVER WHEN A D.READ. . . D. INIT SYSTEM CALL IS MADE. 
(NOTE: D. OPEN, D. CLOSE AND D.INIT ARE ONLY CALLABLE FROM 
INSIDE THE OPERATING SYSTEM) . D.INFO AND GET . DNUM CALLS 
ARE HANDLED INSIDE THIS MODULE. REPEAT. IO BYPASSES THIS MODULE. 



E.REG 
B.REG 



REP 

ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 

EQU 
EQU 
PAGE 
REP 



100 
DMGR 

MAX . DNUM 

SDT.SIZE 

SDT.DIBL 

SDT.DIBH 

SDT.ADRL 

SDT.ADRH 

S DT . BANK 

SDT.UNIT 

BLKD.SIZE 

BLKDLST 

SYSERR 

SERR 

NODNAME 

BADDNUM 

SYSDEATH 

BADSYSCALL 

SXPAGE 

$FFDF 
$FFEF 

100 



; ENVIRONMENT REGISTER 
; BANK REGISTER 



* SYSTEM DEVICE TABLE (SDT) 
* 

* CONTAINS THE ADDRESS OF EACH DRIVER'S DIB (SDT. DIB), THE 

* ADDRESS OF EACH DRIVER'S ENTRY POINT (SDT. ADR), AND THE 

* UNIT # OF EACH DRIVER (SDT.UNIT) . THE TABLE IS INDEXED 

* BY DEVICE NUMBER. ENTRY IS RESERVED FOR FUTURE USE. 



SDT.SIZE 
* 

MAX . DNUM 
SDT.DIBL 
SDT. DIBH 

SDT.ADRL 
SDT.ADRH 



REP 

EQU 

DS 
DS 
DS 

DS 
DS 

DS 

DS 

REP 



100 

25 
1 

SDT.SIZE 
SDT.SIZE 

SDT.SIZE 
SDT.SIZE 

SDT.SIZE 

SDT.SIZE 

100 



;MAX DEV NUMBER IN SYSTEM+1 

; ADR OF DEVICE INFORMATION BLOCK 



; ADR OF ENTRY POINT 



; BANK # OF DEVICE 
;UNIT # OF DRIVER 
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000077 


* BLOCK DEVICE LIST TABLE 






000078 








000079 


BLKD.SIZE EQU 


13 




r\ n n r\ o n 

000080 


BLKDLST DFB 


$00 




000081 


DS 


BLKD . SIZE-1 




000082 


PAGE 






r\ n n r\ o o 

000083 


REP 


100 




000084 








000085 


* DATA DECLARATIONS 






000086 








000087 


REP 


100 




000088 








000089 


D . TPARMX EQU 


$C0 




000090 


REQCODE EQU 


D. TPARMX 




000091 








000092 


* D. READ/WRITE/CTRL/STATUS/OPEN/CLOSE/ INIT/REPEAT 


PARMS 


000093 








000094 


DNUM EQU 


D.TPARMX+1 




000095 








000096 


* D.INFO FARMS 






000097 








000098 


I . DNUM EQU 


D.TPARMX+1 




000099 


I . DNAME EQU 


D.TPARMX+2 




000100 


I.DLIST EQU 


D.TPARMX+4 




000101 


I . LENGTH EQU 


D.TPARMX+6 




000102 








000103 


* GET.DEV.NUM PARMS 






000104 








000105 


G . DNAME EQU 


D.TPARMX+1 




000106 


G . DNUM EQU 


D.TPARMX+3 




000107 








000108 


* SDT ENTRY (=DIB) FIELDS 






000109 








000110 


DIB. SLOT EQU 


$11 


DIB ' S DEVICE SLOT FIELD 


000111 


DIB.DTYPE EQU 


$13 


DIB ' S DEVICE TYPE FIELD 


000112 








000113 


SDTP EQU 


D.TPARMX+$10 


PTR TO CURRENT SDT ENTRY 


000114 


PAGE 






000115 


REP 


100 




000116 








000117 


* DEVICE MANAGER (MAIN ENTRY POINT) 




000118 








000119 


REP 


100 




000120 


DMGR EQU 






000121 








000122 


LDA 


REQCODE 




000123 


CMP 


#4 




000124 


BCC 


DRIVER 


D . READ/WRITE/CTRL/STATUS 


000125 


BNE 


DM000 




000126 


JMP 


GET . DNUM 


GET.DEV.NUM CALL 


000127 


DM000 CMP 


#5 




000128 


BEQ 


D . INFO 


D . INFO CALL 


000129 


CMP 


#$A 




000130 


BCC 


DRIVER 


D . OPEN/CLOSE/ INIT 


000131 


LDA 


#BADSYSCALL 


ELSE FATAL ERROR 


000132 


JSR 


SYSDEATH 


EXIT 


000133 


PAGE 






000134 


REP 


100 




000135 


* D.READ/WRITE/CTRL/STATUS/OPEN/CLOSE/INIT CALLS 




000136 


* "JSR" TO DEVICE DRIVER 






000137 


REP 


100 




000138 


DRIVER EQU 


* 




000139 








000140 


LDX 


DNUM 


GET DNUM SYSCALL PARM 


000141 


BEQ 


DM005 


WITHIN BOUNDS? 


000142 


CPX 


MAX . DNUM 




000143 


BCC 


DM010 




000144 








000145 


* DNUM TOO LARGE 






000146 








000147 


DM005 LDA 


#>BADDNUM 


INVALID DEVICE NUMBER 


000148 


JSR 


SYSERR 


ERROR EXIT 


000149 








000150 


* MAP DEV# TO UNIT# 






000151 








000152 


DM010 LDA 


SDT. UNIT, X 




000153 


STA 


DNUM 




000154 








000155 


* "JSR" TO DEVICE DRIVER 


\?IA JMP TABLE 




000156 








000157 


LDA 


B . REG 


STACK B.REG 
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000158 




PHA 








000159 




LDA 


#<DM.RTN-1 




STACK RETURN ADDRESS 


000160 




PHA 








000161 




LDA 


#>DM.RTN-1 






000162 




PHA 








000163 












000164 




LDA 


SDT .BANK, X 




SELECT RAM BANK 


000165 




STA 


B.REG 






000166 




LDA 


SDT . ADRH, X 




STACK DRIVER ENTRY POINT ADDRESS 


000167 




PHA 








000168 




LDA 


SDT . ADRL, X 






000169 




PHA 








000170 












000171 




LDA 


E.REG 




SWITCH IN I/O BANK 


000172 




ORA 


#540 






000173 




STA 


E . REG 






000174 




RTS 






AND, "JSR" TO DEVICE DRIVER 


000175 












000176 


DM . RTN 


LDA 


E . REG 




SWITCH OUT I/O BANK 


000177 




AND 


#$BF 






000178 




STA 


E . REG 






000179 




PLA 






RESTORE B.REG 


000180 




STA 


B . REG 






000181 




SEC 








000182 




LDA 


SERR 




RETRIEVE ERROR CODE 


000183 




BNE 


DM017 




ENSURE CARRY CLEARED IF NO ERROR 


000184 




CLC 








000185 


DM017 


RTS 






AND, EXIT TO CALLER 


000186 




PAGE 








000187 




REP 


100 






000188 


* D. INFO (IN.DNUM, OUT 


DNAME, OUT.DEVLIST, 


IN. LENGTH) SYSTEM CALL 


000189 




REP 


100 






000190 


D . INFO 


EQU 








000191 












000192 




LDX 


I . DNUM 




GET DNUM PARM 


000193 




BEQ 


DM020 




WITHIN BOUNDS? 


000194 




CPX 


MAX . DNUM 






000195 




BCC 


DM030 






000196 


DM020 


LDA 


#>BADDNUM 




NO, DNUM TOO LARGE 


000197 




JSR 


SYSERR 




ERROR EXIT 


000198 












000199 


* MOVE FARMS 


FM SDT ENTRY (DEV INFO BLOCK) 


TO CALLER'S 


000200 


* FARM LIST 










000201 












000202 


DM030 


JSR 


SETUP. SDT 




SET UP ZPAGE PTR TO SDT ENTRY 


000203 












000204 


* OUPUT DNAME 


PARM 








000205 












000206 




LDA 


(SDTP) , Y 




LOAD FARM'S BYTE COUNT 


000207 




TAY 








000208 


DM040 


LDA 


(SDTP) , Y 






000209 




STA 


(I. DNAME) ,Y 






000210 




DEY 








000211 




BPL 


DM040 






000212 












000213 


* OUTPUT DEVINFO PARM 


(SLOT, UNIT, DEVID, PRODCODE) 




000214 












000215 




LDA 


#DIB.SLOT 






000216 




CLC 






ADVANCE SDTP TO 2ND PARM IN SDT 


000217 




ADC 


SDTP 






0U0218 




STA 


SDTP 






000219 




BCC 


DM045 






000220 




INC 


SDTP+1 






000221 


DM045 


LDY 


I . LENGTH 




LOAD BYTE COUNT 


000222 




BEQ 


DM. EXIT 




IF THEN DONE 


000223 




DEY 








000224 




CPY 


#$B 






000225 




BCC 


DM050 






000226 




LDY 


#$A 






000227 


DM050 


LDA 


(SDTP) , Y 






000228 




STA 


(I.DLIST) ,Y 






000229 




DEY 








000230 




BPL 


DM050 






000231 












000232 


DM. EXIT 


CLC 








000233 




RTS 






NORMAL EXIT 


000234 




PAGE 








000235 




REP 


100 






000236 


* GET . DEV . NUM 


(IN. DNAME; OUT . DNUM) SYSTEM CALL 




000237 




REP 


100 






000238 


* 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 



GET . DNUM EQU 
* 

LDX 

DM070 JSR 

LDA 
CMP 
BNE 

TAY 

DM080 LDA 
CMP 
BCC 
AND 

DM090 CMP 
BNE 
DEY 
BNE 

TXA 

LDY 
STA 
LDY 
LDA 
CLC 
RTS 

NXTSDT INX 

CPX 
BCC 

* 

LDA 
JSR 
PAGE 
REP 

* SETUP . SDT ( IN . X-DNUM, 
REP 

SETUP. SDT EQU 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
STY 
RTS 



#1 



SETUP. SDT 



ZZEND 
ZZLEN 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



(SDTP) ,Y 
(G.DNAME 

NXTSDT 



) ,Y 



(G.DNAME) ,Y 
#$60 
DM090 
#$DF 

(SDTP) , Y 
NXTSDT 

DM080 



#0 

(G. DNUM) ,Y 
#DIB . DTYPE 
(SDTP) , Y 



MAX . DNUM 
DM070 

#>NODNAME 
SYSERR 

100 

OUT. SDTP, B.REG, Y=0) 

100 

SDT.DIBL,X 
SDTP 

SDT.DIBH,X 
SDTP+1 
SDT. BANK, X 
B.REG 

#0 

SXPAGE+SDTP+1 



ON 

ZZEND-ZZORG 
ZZLEN-LENDMGR 
2, "SOSORG 



; SETUP PTR TO 1ST SDT ENTRY 

; SET UP ZPAGE PTR TO SDT ENTRY 

; COMPARE DNAME LENGTHS 

; LENGTHS MATCH, NOW COMPARE CHARS 

; UPSHIFT 



; CHARS MATCH 

; OUTPUT DEV NUM PARM 

; SET "N" FLAG IN STATUS REG. 

; N=l (BLOCK DEVICE) N=0 (CHAR DEVICE) 

; NORMAL EXIT 

; LAST SDT ENTRY? 



ERROR, DNAME NOT FOUND IN SDT 
RETURN TO CALLER 



"UNCHANGED" 



SET UP ZPAGE PTR TO SDT ENTRY 
(POINTS TO DNAME FIELD) 



FILE IS INCORRECT FOR DEVMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DEVMGR. SRC 

************************************************************************* 



End of File 



Lines: 298 Characters: 7991 
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FILE : " SOS . DISK3 . DATA . SRC . TEXT" 



r\ n n r\ n i 

000001 


************************************************************************* 


000002 


* APPLE /// SOS 1.3 SOURCE 


L.UJJij r _L J_iJr_i . 


JJ _L O IA J . JJrt. 1 P 




000003 










************************* 


000004 


* ASSEMBLER: APPLE ] 


6502 


ASSEMBLER 




L^UFlJr U 1 LjX\ 1 UUJ-irY_L 1 


000005 












000006 


PAGE 










00000 / 


* GENERAL DATA: 










r\ n n r\ n o 

000008 












000009 


PREVUNIT DS 




1 




■ DDTl^D rTKTTT 1 7\ CC TP C C T7 Pi 1 T7T\P P T7 DTP A T \ 


000010 


PREVCMD DS 




1 




, JrKlUK UrlD (rUK KtiJriliAl ) 


000011 












000012 


ESAVE DS 




1 




- CAWT?Pi TP PUT 1 


000013 


VBLSAVE DS 




1 




■ Qa\7T?Pl TP TT7P 


000014 


INITFLAG DFB 









• tfC\ TQ TT\TTTTT7n 


000015 


DO 




REV0ROM 






000016 


ROMREV DS 




1 




■ fl— PFVfl <">n — PT7V1 


000017 


FIN 










000018 












000019 


* MOTOR-UP TIMES PER 


COMMAND 






r\ n n r\ n r\ 

000020 


T50MS EQU 




$02 




• R DMQ FT)P MHWTTMF TT 
, Pj Ul ID tUt\ FIUIM 1 11 ICiIl 


000021 


T200MS EQU 




$08 




;ZUU Mo r UK NUN 1 ImrLrl 


000022 


T1SEC EQU 




$27 




, ± OIIjU rUK FlUl^ 1 ll ICjjn 


000023 












000024 


MTIMES DFB 




T200MS,T1SEC,T50MS 


• PT? a Pi WP TTF QT?T\TQT? 


r\ n n r\ n c 

000025 


* 










r\ n n r\ n ^ 

000026 


REP 




40 






000027 


* DRIVE TABLES: 










r\ n n r\ n o 

000028 


* 










r\ n n r\ n rs 

000029 


DRIVESEL DS 




4 




• MriI\I7FPri TF QFTTTHTTTn 


000030 


* 










000031 


UPTIME DS 




4 




■ MHTHP PTTKITTMT? Q THrF QTIiPTT? H 
, 11U1UK t\ U IN 1 _L J. IHj O-LINUiIj Olrt-KlLjIJ 


000032 


DRVTRACK DS 




4 




■ httppfkit ursn pnQTTTnw 

, U rvX\£Lj 1M 1 nili.ft.lJ JrUO-Ll-LUlN 


000033 


PAGE 










r\ n n r\ o /i 

000034 


DO 




REV0ROM 




• CYKIT V T F QrippfiPT TNTf TT 1 


000035 


* JUMP TABLE TO MONITOR ROUTINES. 






000036 


* THIS TABLE FILLED 


IN BY 


1 INIT' . 






000037 


* 










r\ n n r\ o o 

000038 


JMPTAB EQU 




* 






000039 


RDADR JMP 










000040 


READ JMP 










000041 


WRITE JMP 




* 






000042 


SEEK JMP 




* 






000043 


MSWAIT JMP 




* 






000044 


PRENIB JMP 




* 






000045 


POSTNIB JMP 




* 






000046 


* 










000047 


REVO EQU 




* 




■ PT?wn a nnPF qqf q 


000048 


JMP 




$F1BD 




• ppi a np 


000049 


JMP 




$F148 






000050 


JMP 




$F219 




r V V L\ _L _L Hi 


000051 


JMP 




$F400 






000052 


JMP 




$F456 




■ MQT/rtH TT 


000053 


JMP 




$F2C6 






000054 


JMP 




$F311 




- pn Q rpTj T R 


r\ n n r\ c it 

000055 


VSIZE EQU 




*-REV0 




■ TSRT TP QT7P 


000056 


* 










000057 


REV1 EQU 




* 




■ PFT71 a PiPlPF QQF Q 


000058 


JMP 




$F1B9 




. PPi A HP 


000059 


JMP 




$F148 






000060 


JMP 




$F216 




■ foTP T TF 
, Vv r\ _L 1 ill 


r\ n n r\ ^ t 

000061 


JMP 




$F400 




' SEEK 


UUUUoz 


JMP 




$F456 




; MSWAIT 


000063 


JMP 




$F2C4 




; PRENIB 


000064 


JMP 




$F30F 




; POSTNIB 


000065 


ELSE 








;F0R REV1 WE USE EQUATES 


000066 


RDADR EQU 




$F1B9 




; RDADR 


000067 


READ EQU 




$F148 




; READ 


000068 


WRITE EQU 




$F216 




; WRITE 


000069 


SEEK EQU 




$F400 




; SEEK 


000070 


MSWAIT EQU 




$F456 




; MSWAIT 


000071 


PRENIB EQU 




$F2C4 




; PRENIB 


000072 


POSTNIB EQU 




$F30F 




; POSTNIB 


000073 


FIN 










000074 












000075 


ZZEND EQU 










000076 


ZZLEN EQU 




*-ZZORG 
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000077 IFNE ZZLEN-LENDISK3 

000078 FAIL 2,"SOSORG FILE IS INCORRECT FOR DISK3" 

000079 FIN 
000080 

000081 ************************************************************* 

000082 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . DATA . SRC 

000083 ************************************************************************* 

000084 

End of File — Lines: 84 Characters: 2763 
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FILE : "SOS. DISK3. MAIN. SRC. TEXT" 



r\ n n r\ n i 

000001 


tit**-**:*-*******************-***********************************************- 


000002 


* APPLE 


/// 


SOS 


1.3 


DL/UrxL.Ili L.UJJ1I1 r _L J_iHj . 


DISK3 


MAIN. SRC 


000003 








* * a * * 


***************** 




r***************************** 


000004 


* ASSEMBLER: 


APPLE ] 


L DJUt rtooiji v iJ3J_iiijr\ 


from APPLE COMPUTER TOOLKIT 


000005 
















000006 








PAGE 








00000 / 


* MAIN 


ENTRY 


POINT : 








000008 
















000009 


* DISABLE NMI /RESET 


IlKin T?KIIiRT T? DfiM / Tfl 
rtL\ U rM\rtrrjJ_i.t!j t\\jiyi/ -L'J 


SPACE 




000010 
















r\ n r\ r\ i t 

000011 


MAIN 






EQU 


* 






000012 








LDA 






; SAVE CALLER ' S 


000013 








AND 


if -? r r ^ZU 




;DROP SCREEN BIT 


000014 








STA 






; ENVIRONMENT 


000015 








DO 


1 -TEST 




;NO RESETLOCK FOR TESTING 


000016 








LDA 






;GET EREG AGAIN 


000017 








AND 






; DISABLE NMI/RESET 


000018 








FIN 








000019 








ORA 






/ENABLE ROM/IO SPACE 


r\ r\ r\ r\ *~) r\ 

000020 








STA 


E.REG 






000021 


* 














000022 








LDA 


LN U D L. r\WJ-i J-i 




; DISABLE SMOOTHSCROLL 


000023 


* 














000024 








PHP 






;IF ALREADY SEI'D, THEN WE 


000025 








PLA 






; STAY THAT WAY . . . 


r\ n r\ r\ n r 

000026 








ROR 








000027 








ROR 








000028 








ROR 








000029 








ROR 








000030 








STA 


_L KyHHOlA 




; ' I ' BIT INTO BIT7 


000031 


* 














000032 


* MAKE 


SURE 


WE 


HAVE 


rt Vrt._l_i±JJ L.L'l lL v lrt.LN U . 






000033 


* 














r\ n r\ r\ o /i 

000034 








LDA 


n rnivnvrawn 




; GET IT 


r\ n n r\ o c 

000035 








BMI 


rrirt.JJL.LlJJ 




; =>WOW ! 


000036 








BEQ 


T nQT?TTTP 
-J-UOJTj 1 U Jr 




;=>ZERO IS A READ 


r\ n n r\ o ^ 

000037 








CMP 


fflU 




;OFF THE END? 


000038 








BCS 


Jr5rt.JJL.LlJJ 




; ->YES 


000039 








CMP 


1 Q 




; RE PEAT? 


000040 








BNE 


CMD1 




; ->NOPE 


000041 


* 














000042 


* REPEAT. SIMPLY GET 


PRIOR COMMAND : 






000043 


* 














000044 








LDA 


PREVUNIT 




;IS THIS REPEAT FOR 


000045 








CMP 


D.UNITNUM 




; SAME UNIT? 


000046 








BNE 


BADOP 




;->NO? ILLEGAL! 


000047 








LDA 


PREVCMD 




;YES, SET COMMAND 


000048 








BEQ 


RPTOK 




; ->REPEAT ' ED READ IS OK 


000049 








CMP 


#1 




;IF NOT, IS IT REPEAT'ED WRITE? 


000050 








BNE 


BADOP 




;->CAN'T REPEAT OTHER COMMANDS 


000051 


RPTOK 






EQU 


* 






000052 








STA 


D . COMMAND 




;SAME AS BEFORE 


000053 








CMP 


#0 




; READ ? 


000054 








BEQ 


IOSETUP 




; ->YES 


000055 


* NOW REPEAT 


GOES LIKE OTHERS: 






000056 


* 














000057 
















000058 


CMD1 






EQU 


* 






000059 








CMP 


#1 




; WRITE? 


000060 








BNE 


CMD2 




; =>NOPE 


000061 








JMP 


IOSETUP 




;=>YES 


000062 


CMD2 






EQU 








000063 








CMP 


#2 




; STATUS? 


000064 








BNE 


CMD3 




;=>NOT STATUS 


000065 








LDA 


D.STATCODE 




;IS IT 'SENSE'? 


000066 








BEQ 


GOSTAT 




; =>YES 


000067 








LDA 


#XCTLCODE 




/ILLEGAL CODE 


000068 








JMP 


EXIT 






000069 


GOSTAT 






EQU 








000070 








JMP 


DRVSETUP 




;=>YES 


000071 


* 














000072 


CMD3 






EQU 


* 






000073 








CMP 


#8 




; INIT? 


000074 








BNE 


BADOP 




; =>NOPE 


000075 








JMP 


INIT 




;=>YES, DO INIT 


000076 


* 
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000077 


BADOP 


EQU * 




000078 




IDA #XBADOP /ILLEGAL COMMAND 


000079 




JMP EXIT ; BACK TO YOU 


000080 








000081 


BADCMD 


EQU * 




000082 




LDA IXREQCODE 


INVALID COMMAND 


r\ n n r\ o o 

00008 3 




JMP EXIT ,-BACK TO YOU 


000084 




PAGE 




000085 


* SETUP WHAT 


WE HAVE TO BEFORE 




000086 


* PERFORMING THE I/O OPERATION : 




000087 








000088 


IOSETUP 


EQU * 




000089 




LDA D.BLOCK+1 


VALIDATE BLOCKNUM 


000090 




BEQ CHKBYTE 


=> IF <256, IT'S OK 


000091 




CMP #2 


IS IT <512? 


r\ n n r\ r\ ^ 

000092 




BCS BADBLOCK 


=>BAD BOY! 


000093 




LDA D. BLOCK 


YES, CHECK LO HALF 


000094 




CMP #280-256 


FOR RANGE 


000095 




BCC CHKBYTE 


=>IT'S OK 


000096 


BADBLOCK 


EQU * 




000097 




LDA #XBLKNUM 


BAD BLOCK NUMBER 


000098 




JMP EXIT ; RETURN BAD NEWS 


000099 








000100 


CHKBYTE 


EQU * 




000101 




LDA D. BYTES 


GET LO COUNT 


000102 




BNE BADCOUNT 


=>ERR, NOT INTEGRAL BLOCK (S 


000103 




LDA D.BYTES+1 


GET HI COUNT 


000104 




LSR A 


MAKE BLOCK COUNT 


000105 




BCS BADCOUNT 


=>BAD IF HALF-BLOCK COUNT 


000106 




STA BLKCOUNT 


SAVE COUNT OF BLOCKS 


000107 








000108 


* DOES REQUESTED BYTECOUNT CAUSE US 




000109 


* TO RUN OFF END OF DISK? 




000110 








000111 




LDA BLKCOUNT 


NO. ADD STARTBLOCK 


000112 




CLC 


AND BLKCOUNT AND SEE 


000113 




ADC D. BLOCK 


IF WE'RE TOO BIG 


000114 




LDX D.BLOCK+1 


DID IT START OUT > 255? 


000115 




BNE BLKG255 


=>YES 


000116 




BCC DRVSETUP 


=>DEFINITELY < 256 


000117 




BCS CHKLO 


=>IF CARRY, THEN >256 


000118 


BLKG255 


EQU * 




000119 




BCS BADCOUNT ;>255+CARRY IS NOW >511 


000120 


CHKLO 


EQU * 




000121 




CMP #280-256+1 ;281..511 ? 


000122 




BCC DRVSETUP 


=>NO, WE ARE OK 


000123 


BADCOUNT 


EQU * 




000124 




LDA #XBYTECNT /ILLEGAL BYTECOUNT 


000125 




JMP EXIT ; SORRY. . . 


000126 




PAGE 




000127 








000128 


* SELECT THE 


APPROPRIATE DRIVE: 




000129 








000130 


DRVSETUP 


EQU * 




000131 




LDA D . COMMAND 


SAVE THIS COMMAND 


000132 




STA PREVCMD 


AND DEVICE FOR 


000133 




LDA D . UNITNUM 


SUBSEQUENT 


000134 




STA PREVUNIT 


'REPEAT' CALL 


000135 




LDA E . REG 


DOWNSHIFT TO 


000136 




ORA #$80 


1MHZ FOR REMAINDER 


000137 




STA E.REG 


OF DRIVER EXECUTION 


000138 




JSR UNITSEL 


SELECT S START IT 


000139 








000140 


* SEE IF THE 


MOTOR STARTED. IF NOT, 




000141 


* THEN IT'S 


EITHER DISKSWITCH OR NODRIVE . 




000142 








000143 




JSR CHKDRV ;MOTOR RUNNING? 


000144 




BNE DO IO 


=>YES, GREAT. 


000145 








000146 


* IF WE GET A MOTOR WHEN WE MOVE 




000147 


* THE HEAD, 


THEN IT'S DISKSWITCH. 




000148 








000149 




LDX D. UNITNUM 


FORCE HEAD MOTION 


000150 




INC DRVTRACK, X 


EVEN IF ALREADY ON ZERO 


000151 




INC DRVTRACK, X 


GIVE HIM A FIRM KNOCKER 


000152 




LDA #0 


SEEK TO TRACK ZERO 


000153 




JSR MYSEEK 


FOR BFM DIR READ 


000154 




JSR CHKDRV 


RUNNING NOW? 


000155 




BNE DSWITCH 


=>YES, A SWITCHEROO 


000156 




LDA #0 




000157 




LDY D. UNITNUM ; FORGET THAT THIS 
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000158 


STA 


DRIVESEL, Y 


; DRIVE WAS 'SELECTED' 


000159 


LDA 


#XNODRIVE 


;NO, A MISSING DRIVE! 


000160 


JMP 


EXIT 




000161 


* 






000162 


DSWITCH EQU 


* 




000163 


LDA 


#XDISKSW 


; USER PULLED A FAST ONE 


000164 


JMP 


EXIT 


; BUT HE CAN ' T FOOL US . 


000165 


PAGE 






000166 


* PREPARE TO DO THE OPERATION: 




000167 








000168 


DO IO EQU 






000169 


LDA 


D . BUFL 


;COPY USER BUFFER 


000170 


STA 


BUFTEMP 


; AND BLOCK NUMBER 


000171 


LDA 


D . BUFH 


; TO OUR WORKSPACE 


000172 


STA 


BUFTEMP+1 




000173 


LDA 


CI /inn_l_Fl "DTTTT'LJ 




000174 


STA 






000175 


LDA 


D . BLOCK 




000176 


STA 


BLKTEMP 




000177 


LDA 


D . BLOCK+1 




000178 


STA 


BLKTEMP+1 




000179 








000180 


* IF CALLER GAVE US A 


COUNT OF ZERO BYTES, 




000181 


* THEN WE ' RE ALL DONE 






000182 








000183 


LDA 


D . COMMAND 


; IS IT STATUS? 


000184 


CMP 


#2 


;IF SO, THEN BYTECOUNT 


000185 


BNE 


DOI02 


; IS MEANINGLESS 


000186 


JMP 


STATUS 




000187 


DOI02 EQU 






n n n i o o 
000188 


LDY 


BLKCOUNT 


; BLKS=0 ? 


000189 


BEQ 


READOK 


;=>YES, YOU GET GOOD RETURN 


000190 


CMP 


#0 


;READ COMMAND? 


000191 


BEQ 


READREQ 


;=>YES 


000192 


JMP 


WRITEREQ 




000193 


PAGE 






000194 


REP 


40 




000195 


* — READ — 






000196 


REP 


40 




000197 


READREQ EQU 


* 




000198 


LDA 


#0 


; CLEAR COUNT OF 


000199 


LDY 


#0 




000200 


STA 


( D . BYTRD) , Y 


; BYTES READ 


000201 


I NY 






000202 


STA 


( D . BYTRD) , Y 




000203 


READREQ2 EQU 






000204 


JSR 


BLK2SECT 


; COMPUTE TRK/SECTOR THIS BLOCK 


000205 








000206 


JSR 


SECTORIO 


; READ I T PLEASE 


000207 


BCS 


READERR 


,*=>WE LOSE. 


000208 


INC 


SECTOR 


; BUMP TO NEXT 


000209 


INC 


SECTOR 


; LOGICAL SECTOR 


000210 


INC 


BUF+1 


;BUMP SECTOR BUFFER 


000211 


JSR 


SECTORIO 


; READ I T TOO 


000212 


BCS 


READERR 


;=>WE LOSE. 


000213 


LDY 


#i 




000214 


LDA 


(D. BYTRD) , Y 


; BUMP COUNT OF 


000215 


CLC 






000216 


ADC 


#2 




000217 


STA 


(D. BYTRD) , Y 


; BYTES READ 


000218 


* 






000219 


* MORE BLOCKS TO GO? 






000220 


* 






000221 


JSR 


MOREBLKS 


; SETUP FOR NEXT BLOCK 


000222 


BNE 


READREQ2 


; =>MORE TO READ . . . 


000223 


READOK EQU 






000224 


LDA 


#0 


;GOOD RETURN 


000225 


JMP 


EXIT 


; TELL HAPPY USER 


000226 


* 






000227 


READERR EQU 


* 




000228 


JMP 


EXIT 


; RETURN ERROR CODE 


000229 


CHN 


DISK3.WRT.SRC 




000230 








000231 


************************************************************* 


000232 


* END OF APPLE /// SOS 


1.3 SOURCE CODE FILE: 


DISK3. MAIN. SRC 


000233 


************************************************************************* 


000234 









End of File — Lines: 234 Characters: 7883 
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FILE: "SOS. DISK3.SI0. SRC. TEXT" 



000001 


********************************************************* 


r\ n n r\ n o 

000002 


* APPTF /// QPC. 1 ^ QOIIRPV 
rt_r_r__i_l_ til OUO X.J OuUIa^Ij 


ppnF ftt tp • nTc.K"3 qto 

^uuii e _________ • u_i_or\-0 • oiu 


. SRC 


000003 


************************** 


********************* 


************************** 


000004 


* A Q QF1VIP.T FP • a PPT F IT f, RO 9 
f-io oIjPIid J_iLjr\ . rtJrJT ______ J |_ OOUZ 


ACCT?MDT FP f rnm APPT F 
/looJr_il v lJ3J_iiijr\ 1IUIII /IJrJr ______ 


PHMPnTFP TPiPiT 7TT 


000005 








000006 








00000 / 


REP 


40 




r\ n n r\ n o 

000008 


* 1X1 AMF ■ QFPTPR T P 






000009 


* FT TKIPT TPKI ■ PF A n OR WP T TF 

r 1 . KJl_._-i.__. Wrv vvr\± ______ 


h QFPTPP 




r. n n r. n n 

000010 


* TKIPriT ■ TRQTPT-f TP.QFPT 
iwrui ■ _i_ Jd d J_ Kia , IddJjLI 


MPKITTMF 
, IXKJLN 1 ±l v J___i , 




r. n r\ r\ i t 

000011 


* PFTT 1P1YIQ . PAPPY PT F AP T F 
r\Lj±UrvlMO ■ L^rtKrvI L_. _______ rt_t\ _Lr 






000012 


* • rSCRY QFT TF 


fpppp I hp— FPPnnnF . 




000013 


* • C T7 T7 TZTYF A TT 7\ T T 


DC. 1 U Jr 




000014 


* nFCTPPVQ . at T PFPTQTFPQ 






000015 




40 




000016 


* 






000017 


cfptpptp fptt 


* 




000018 






. CFTT1P THF 


000019 


* p PFP A T MnQT RF KIPT-J — 7FPP 
r\ . -tvcj^rtJ-i rlUO 1 Dili 1>JUJU nEitsSJ 


1 I / CFF P.FT HM\ 




r. n n r. n n 

000020 




PFP ST rWT 


PFPAT TPTFQ 


000021 


WOP 




• pan m\TF rvtf 


000022 


STA 


El 908 


A — PFP MnQT P.F TXTPiKI — 7FPH 1 1 1 


000023 


* tp~\ QfiR — impixt— 7fpp t ppt/pttt 


P1U U o lli 




000024 


* 






r\ n n r\ n _: 

000025 




U . U IN ± 1 LN Ul 1 


• APF WF ni\1 — TPAPPfl) 


r. n n r. n /~ 

000026 


LDA 


TRACK 




000027 




ur\v ikhLpi., i 




r. n n r\ n o 

000028 


BEQ 


oUUtunl 


. — \Tr CP FPPPFT 1 CFFTi" r riFT AV 

, — ■> It bU, r UKUJii 1 oiliiliJA a UhjijPil 


000029 


* 






000030 


* MATT PTT'rr'PPF CTUDDTMr . 






000031 


* 






000032 


LDA 


QFFT-fWQ TT 

o HiHjr\Vvrl_L _L 


. crpif nFT BY WFFHFn'? 


000033 




IjUOIliIliIA 




r\ n n r. r. /i 

000034 


LDA 


in 




000035 




CT7T7T^r A 7A T rp 
OIlilljri.l n JH._L 1 


■ PT FAP THF FT ZIP 


000036 


LDA 




• Ann QFFTiTnFT AV TP 


r. n n r. r. '"7 

000037 




a nriT tmf 


. THF TPTAT T1PTTMF ( Q \ 


000038 


TAY 




• A * 9 R MQ nFT A V 


000039 


OIIiIIiIaIJIIjIj J-i'v.U 






000040 




in 




000041 


TCP 






000042 








000043 


BNE 


OIIiIjIaIJiIj-I-i 




000044 


* 






000045 


* ISSUE THE SEEK: 






r\ n n r. a r 

000046 


* 






000047 


GOSEEK EQU 






000048 


LDA 


TRACK 


■ PFT nFQTTTXTATTPKI TPAP1V 


000049 


JSR 


MYSEEK 


■ — AKin VPTT QHAT T FTKTn 

, — s' . . rtJ_N JJ IUU O Jrii-iij J_i e _L In LI . . . 


000050 


* 






000051 


SOUGHT EQU 


* 




000052 


LDA 


IRQMASK 


• QFT TPP MAQ1V FPP 
, OJli 1 -LJtnA-J L v i_-iDlA £ UJl\ 


r. n n r. _: o 

000053 


STA 


IMASK 


PPPF PPHTTIYIFQ 
, v_- UJr\-_j t\\J U 1 _L 1M Jli 


000054 


LDA 


ffR.IRQ 


. CFTTIP TPP PFTP T F Q 
, oJ-jlUJr ±r\y t\Ej 1 r\ ± Jii 


r. n r\ r\ _: it 

000055 


STA 


INTRTRY 




000056 


LDA 


#R. IOERR 


• AlXTn FPPPP PFTPTFQ 

, H.LNJJ J_jJi\_r\UJr\ Jr\Jii 1 Jr\ _L JUj 


000057 


STA 


RETRYCNT 




000058 


* 






000059 


* DELAY FOR ANY REMAINING MOTOR-UP TIME: 




000060 


* 






000061 


MDELAY EQU 


* 




UU UU OZ 


LDA 


MONT I ME H 


; ANY TIME REMAINING? 


000063 


BPL 


FINDIT 


;=>N0, WE'RE UP TO SPEED. 


000064 


LDA 


#1 


;YES, SO BUMP A SLICE OF 


000065 


JSR 


ADDTIME 


; UPTIME WHILE WE WAIT 


000066 


LDA 


#0 




000067 


JSR 


MSWAIT 




000068 


JMP 


MDELAY 


;=>GO TILL ENOUGH 


000069 


* 






000070 


* FIND THE DESIRED SECTOR: 






000071 


* 






000072 


* NOTE: FINDSECT RETURNS WITH 




000073 


* IRQ INHIBITED! 






000074 


* 






000075 


FINDIT EQU 


* 




000076 


PHP 




; INHIBIT IRQ WHILE 
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000077 


SEI 






; MESSING WITH VBL FLAGS 


000078 


LDA 




E . IER 


/DISABLE VBL IRQ 


000079 


AND 




#$18 


; DURING SECTOR I/O 


000080 


STA 




E . IER 




000081 


ORA 




#$80 


; FOR ' SET ' LATER 


000082 


STA 




VBLSAVE 




000083 


PLP 






; RESTORE IRQ STATUS 


000084 


JSR 




FINDSECT 


;FIND ME PLEASE 


000085 


BCS 




TRYRECAL 


;— >NO? RECAL OR GIVE UP! 


000086 


LDX 




#$60 


;SET UP SLOT FOR CORE RTNS 


000087 


LDA 




D . COMMAND 


; WHAT ' S YOUR PLEASURE ? 


000088 


BNE 




SIOWRITE 


;=>WRITE 


000089 










000090 


REP 




40 




000091 


* READ A SECTOR: 








r\ n n r\ r\ ^ 

000092 










000093 


JSR 




READ 


;READ THAT SECTOR 


000094 


JSR 




FIXIRQ 


; ENABLE IRQ IF OK 


000095 


LDA 




VBLSAVE 


; ALLOW VBL DURING 


000096 


STA 




E . IER 


; POSTNIB 


000097 


BCS 




BADIO 


;=>I/0 ERR OR IRQ 


000098 


LDA 




E . REG 


; SET 2MHZ FOR POSTNIB 


000099 


AND 




#$7F 




000100 


STA 




E . REG 




000101 


JSR 




POSTNIB 


; POSTNIB/CHECKSUM 


000102 


BCS 




I ORE TRY 


;=>I/0 ERR: BAD CHKSUM 


000103 


JMP 




SIOGOOD 


; =>GOOD READ 


000104 










000105 


REP 




40 




000106 


* WRITE A SECTOR: 








000107 










000108 


SIOWRITE EQU 








000109 


JSR 




WRITE 


; WRITE THE DATA 


000110 


JSR 




FIXIRQ 


; RE-ENABLE IRQ IF OK 


000111 


LDA 




VBLSAVE 


; RESTORE 


000112 


STA 




E . IER 


; VBL IRQ 


000113 


BCC 




SIOGOOD 


; =>GOOD WRITE 


000114 


BVC 




SIOWPROT 


; =>WRITE PROTECTED 


000115 










000116 


REP 




40 




000117 


* IT DIDN'T GO WELL 


FOR 


US: 




000118 










000119 


BAD IO EQU 








000120 


DO 




1 -REVO ROM 


;FOR REV1 


000121 


BVS 




FINDIT 


;=>IRQ. JUST RETRY IT. 


000122 


ELSE 






; FOR REVO 


000123 










000124 


* THE REV1 ROM TAKES 


CARE OF THE 




000125 


* IRQ RETRY COUNT, 


BUT 


REVO DOESN'T: 




000126 










000127 


BVC 




I ORE TRY 


;=>I/0 ERROR. RETRY IT 


000128 


LDA 




ROMREV 


; WHICH ROM? 


000129 


BNE 




FINDIT 


;=>REV1 . HE DOES IT . 


000130 


LDA 




INTRTRY 


;REV0. OUT OF RETRIES? 


000131 


BPL 




BADI02 


; — >NO . 


000132 


STA 




IMASK 


;SET HI BIT FOR IRQ MASK 


000133 


BADI02 EQU 




-k 




000134 


DEC 




INTRTRY 


;ONE LESS RETRY 


000135 


JMP 




FINDIT 


; ->RETRY AFTER IRQ 


000136 


FIN 








000137 










000138 


* RETRY AFTER AN I/O ERROR: 




000139 


-k 








000140 


I ORE TRY EQU 








000141 


DEC 




RETRYCNT 


;ANY RETRIES LEFT? 


000142 


BNE 




FINDIT 


;=>YEAH, RETRY AFTER ERROR 


000143 


-k 








000144 


* RETRIES EXHAUSTED. 


RECALIBRATE: 




000145 


-k 








r\ n r\ *\ at 

000146 


TRYRECAL EQU 








000147 


LDA 




VBLSAVE 


;ALLOW VBL IF RECAL 


nnni AO 

00014o 


STA 




E. IER 


; OR UNRECOVERABLE ERROR 


000149 


DEC 




RECALCNT 


; HAVE WE RECALIBRATED YET? 


000150 


BMI 




SIOERR 


;=>YUP. WE'RE DEAD. 


000151 


JSR 




RECAL 


;NO, TRY OUR LUCK 


000152 


LDY 




D.UNITNUM 


; ARE WE ON-TRACK? 


000153 


LDA 




TRACK 




000154 


CMP 




DRVTRACK, Y 




000155 


BNE 




NOTSAME 




000156 


JMP 




SOUGHT 


;=>IF SO, FORGET RESEEK 


000157 


NOTSAME EQU 
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000158 






JMP 




GOSEEK 


; TRY AGAIN ON TARGET TRACK 


000159 














000160 






REP 




40 




000161 


SIOERR 




EQU 








000162 






LDA 




#XIOERROR 


; RETURN CODE 


000163 






SEC 






; INDICATE HARD ERROR 


000164 






BCS 




SIORET 




000165 


SIOWPROT 




EQU 








000166 






LDA 




#XNOWRITE 


; RETURN CODE 


000167 






SEC 






; INDICATE HARD ERROR 


000168 






BCS 




SIORET 




000169 


SIOGOOD 




EQU 








000170 






LDA 




#0 




000171 






CLC 






; INDICATE GOOD COMPLETION 


000172 


SIORET 




LDX 




#0 


; SAY OK TO MOUSE 


0001 13 






STX 




E1908 


; WITH THIS GLOBAL $1908 


000174 






RTS 








000175 






PAGE 








000176 






REP 




40 




000177 


* NAME : 


FINDSECT 








000178 


* FUNCTION: 


LOCATE A 


DESIRED SECTOR 




000179 


* INPUT : 


IBTRK, IBSECT SETUP 




000180 


* RETURNS : 


CARRY CLEAR 


IF OK, 




000181 




CARRY SET 


IF ERROR. 




000182 


* DESTROYS : 


ALL REGISTERS S 'TEMP' 




000183 


* NOTE : 


RETURNS WITH IRQ DISABLED IF NO ERROR! 


000184 






REP 




40 




000185 














000186 


FINDSECT 




EQU 








000187 






LDA 




#R.FIND*16 


; SETUP NUMBER OF REVS 


000188 






STA 




RETRYADR 


; ALLOWED TO FIND SECTOR 


000189 






LSR 




TEMP 


; COMPUTE LATENCY FIRST TIME 


000190 


FINDSEC2 




EQU 








000191 






LDX 




#560 


;FAKE SLOT FOR CORE ROUTINES 


000192 






JSR 




RDADR 


;GET NEXT ADDRESS FIELD 


000193 






BCS 




RDADERR 


; =>UGH ! AN ERROR ! 


000194 














000195 


* MAKE SURE 


WE 


RE ON 


THE CORRECT TRACK: 




000196 














000197 






LDA 




TRACK 


; I S IT 


000198 






CMP 




CSSTV+2 


; CORRECT TRACK? 


000199 






BNE 




FINDERR 


;=>NO? ! ? IT'S USELESS ! 


000200 






LDA 




SECTOR 


; I S IT 


000201 






CMP 




CSSTV+1 


; DESIRED SECTOR? 


000202 






BEQ 




FINDGOOD 


;— >YEAH. GOT IT! 


000203 














000204 


* COMPUTE LATENCY. EACH 


TWO- SECTOR 




000205 


* DISTANCE 


IS 


25 MS 


OF 


UPTIME. 




000206 














000207 






LDA 




TEMP 


; LATENCY ALREADY COMPUTED? 


000208 






BMI 




RDADERR 


;=>YES. 


000209 






LDA 




SECTOR 


;HOW FAR AWAY IS OUR 


000210 






SEC 






; DESIRED SECTOR? 


000211 






ROR 




TEMP 


; PREVENT RE C OMPU TAT I ON 


000212 






SBC 




CSSTV+1 




000213 






AND 




#$0F 




000214 






LSR 




A 


; EACH 2-SECTORS IS 25 MS 


000215 






JSR 




ADDTIME 




000216 














000217 


* KEEP LOOKING 


TILL WE 


FIND IT: 




000218 














000219 


RDADERR 




EQU 








000220 






JSR 




FIXIRQ 


; ENABLE IRQ IF APPROPRIATE 


000221 






DEC 




RETRYADR 


; ANY RETRIES LEFT? 


000222 






BEQ 




FINDERR 


;=>NO, WE CAN'T FIND IT. 


000223 














000224 


* COMPENSATE FOR A BUG 


IN RDADR: IF WE TRY 




000225 


* TO CALL 


RDADR AGAIN 


BEFORE THE DATA MARK 




000226 


* GOES BY, 


THEN RDADR 


WILL ACCIDENTALLY CALL 




r\ n r\ o i "7 

000227 


* THAT AN 


ERROR. WE 


CAN AVOID THIS 'FAKE' 




000228 


* ERROR BY 


DELAYING 


PAST THE DATA MARK. 




000229 






LDY 




#200 


;1 MS IS PLENTY 


000230 


ADRDELAY 




EQU 








000231 






DEY 








000232 






BNE 




ADRDELAY 




000233 






JMP 




FINDSEC2 


;=>NOW TRY LOOKING AGAIN 


000234 


* 












000235 






REP 




40 




000236 


FINDGOOD 




EQU 








000237 






LDA 




#0 


; CLEAR VOLNUM OUT OF 


000238 






STA 




MONTIMEH 


; MOTORTIME! 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 



CLC 
RTS 

EQU 
JSR 
LDA 
STA 
SEC 
RTS 

CHN 



FIXIRQ 
#0 

MONTIMEH 



DISK3 . USEL . SRC 



; INDICATE NO ERROR 



; ENABLE IRQ IF APPROPRIATE 
; CLEAR VOLNUM OUT OF 
; MOTORTIME! 
/INDICATE THE ERROR 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . SIO . SRC 

************************************************************************* 



End of File 



Lines: 255 Characters: 8245 
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FILE: "SOS. DISK3. SRC. TEXT" 



r\ n n r\ n i 

000001 


************************************ 


r\ n n r\ n o 

000002 


* a ppt t? / / / 

Air lr 1j£j III 


SOS 1.3 SOURCE CODE FILE 


000003 








000004 


f-io orjl v l£3J_i£jr\ . 


APPLE ] [ 


6502 ASSEMBLER 


000005 








000006 




SBTL 


'SOS 1.1 


00000 / 


TEST 


EQU 





r\ n n r\ n o 

000008 




INCLUDE S0S0RG,6, 


000009 




DO 


TEST 


000010 




ORG 


$2000 


r\ n r\ r\ i t 

000011 




ELSE 




000012 




REL 




000013 




ORG 


ORGDISK3 


000014 




FIN 




000015 


ZZORG 


EQU 


* 


000016 




CHR 




000017 




MSB 


OFF 


000018 


* 






000019 




REP 


40 


000020 


* COPYRIGHT (C) APPLE COMPUTER IN 


000021 


* ALL RIGHTS 


RESERVED 


000022 




REP 


4 


000023 








000024 


REV0ROM 


EQU 





r\ r\ r\ r\ o it 

000025 








r\ n r\ r\ n r 

000026 




DO 


1-TEST 


000027 




ENTRY 


DIB1 


r\ n n r\ n o 

000028 




ENTRY 


DIB2 


000029 




ENTRY 


DIB3 


000030 




ENTRY 


DIB4 


000031 




ENTRY 


SEEKDSK3 


000032 


* 






000033 




EXTRN 


SYSERR 


r\ n r\ r\ o /i 

000034 


* 






000035 




EXTRN 


XREQCODE 


r\ n n r\ o 

000036 




EXTRN 


XBADOP 


000037 




EXTRN 


XNODRIVE 


000038 




EXTRN 


XIOERROR 


000039 




EXTRN 


XNOWRITE 


000040 




EXTRN 


XBYTECNT 


000041 




EXTRN 


XBLKNUM 


000042 




EXTRN 


XDISKSW 


000043 




EXTRN 


XCTLCODE 


000044 


* 






000045 




EXTRN 


E1908 


000046 


* TO SAY WE 


CANNOT BE 


INTERRUPTED 


000047 








000048 




ELSE 




000049 


XREQCODE 


EQU 


$20 


000050 


XBADOP 


EQU 


$26 


000051 


XNODRIVE 


EQU 


$28 


000052 


XIOERROR 


EQU 


$27 


000053 


XNOWRITE 


EQU 


$2B 


000054 


XBYTECNT 


EQU 


$2C 


000055 


XBLKNUM 


EQU 


$2D 


000056 


XDISKSW 


EQU 


$2E 


000057 


XCTLCODE 


EQU 


$21 


000058 




FIN 




000059 




PAGE 




000060 


* DISK /// CONTROLLER 


EQUATES : 


000061 


-k 






UUUUoz 


* MOTOR SELECT BITS: 


000063 








000064 


* DRIVE 


INT EXT1 EXT 2 


000065 








000066 


* .Dl 


1 X 


X 


000067 


* .D2 


X 


1 


000068 


* .D3 


X 1 





000069 


* .D4 


X 1 


1 


000070 








000071 


MS . INT 


EQU 


$C0D4 


000072 


MD. INT 


EQU 


$C0D5 


000073 








000074 


MS .EXT 1 


EQU 


$C0D3 


000075 


MS . EXT2 


EQU 


$C0D1 


000076 


MD.EXT1 


EQU 


$C0D2 



******** 



;FOR FUNNY -MODE TESTING 



;l=SUPPORT REVO ROM 



;DIB1 
;DIB2 
;DIB3 
;DIB4 

; SEEK CURRENT DRIVE 



GLOBAL FLAG FOR MOUSE DRIVER 



;MOTOR SELECT : INTERNAL DRIVE 
;MOTOR DESELECT : INTERNAL DRIVE 

;MOTOR SELECT: EXTERNAL DRIVE 
; MOTOR SELECT: EXTERNAL DRIVE 
; MOTOR DESELECT: EXTERNAL DRIVE 
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UUUU / / 


ML) . EAl Z 


EQU 


c f~* n pin 


a KdnTnD riT?OT7 1 TT7r^ r P»T7 1 VT , T7 1- DT,T7\T HDTT TT? 

;1YI01UK UhjbhjliiLL.1 I IlAIIlKINIAIi JJKlvi. 


n n n n ~7 o 
UUUU /o 










nn n m n 

uuuu /y 


IS . INT 


EQU 


$C0EA 


; I /0 SELECT : INTERNAL DRIVE 


UUUUoU 


TO DVT 


EQU 






n n n n o i 
UUUUol 










n n n n o o 
UUUUoz 


NOSCROLL 


EQU 


SC0D8 


; SMOOTHSCROLL OFF 


n n n n o o 
UUUUo O 










UUUU84 


MOTOROFF 


EQU 


SC0E8 


; MOTOR ( S ) START POWEROFF T/ 


n n n n o c 
UUUUoo 


MOTORON 


EQU 


ScoEy 


; MOTOR ( S ) POWER ON 


n n n n o j' - 
UUUUoo 


Q6L 


EQU 


$C0 8C 


; Q7L, Q6L=READ 


U00U87 


Q6H 


EQU 


$C08D 


;Q7L, Q6H— SENSE WPROT 


n n n n o o 
UUUUoo 


Q7L 


EQU 


SC08E 


; Q7H, Q6L=WRITE 


uuuuyy 


Q7H 


EQU 


SC08F 


; Q7H, Q6H=WRITE STORE 


n n n n n n 

uuuuyu 










uuuuyi 


* OTHER EQUATES 








uu uu yz 










uuuuyj 


E.REG 


EQU 


$FFDF 


; ENVIRONMENT REGISTER 


ri r\ d r\ d a 

uuuuy4 


E.IER 


EQU 


$FFEE 


; INTERRUPT ENABLE REGISTER 


uuuuyo 










n n n n n r 

uuuuyfo 


* RETRY COUNTERS: 






uuuuy / 










n n n n n o 

uuuuyy 


R. REGAL 


EQU 


1 


; MAX RECALIBRATES 


uuuuyy 


* R.RECAL MUST NOT BECOME 


ZERO ! (MOUSE WILL BE 


LOCKED OUT) 


n n n t n n 

UUU1UU 


* SEE DISK3.SI0 


SRC LINE 


14 FOR DETAIL 




n n m n i 
UU Ul U 1 


R. FIND 


EQU 


3 


, WAX KiLVb lO r 1IMU A bc.ClUK 


U00102 


R. IOERR 


EQU 


4 


;MAX RETRIES ON READ ERROR 


n n n i no 
UUUIUo 


R. IRQ 


EQU 


6 


;MAX IRQ 1 S TOLERATED BEFORE SEI 


n n n i r\ a 
UUU1U4 




PAGE 






U00105 


* ZPAGE EQUATES 


FOR CORE 


ROUTINES : 




n n n i n r 
UUUIUo 










n n n i n "7 
UUU1U / 




DSECT 






n n n i no 
UUUlUo 




ORG 


$81 




n n n i n n 

uuuiuy 


IBSLOT 


DS 


1 


; SLOT— $ 60 FOR RTNS 


n n n i i n 
UUU11U 




DS 


7 


; N/A 


U00111 




DS 


1 


; RDADR : CHECKSUM 


n n n i t o 
UUU112 




DS 


1 


; N/A 


n n n t t o 
UUU113 


IMASK 


DS 


1 


; BIT7 SET IF IRQ ALLOWED 


n n n i t yi 
UU U114 


CURTRK 


DS 


1 


; SEEK : CURRENT TRACK 


U00115 




DS 


2 


; N/A 


n n n i i r 
UUUllo 


INTRTRY 


DS 


1 


; READ : IRQ RETRY COUNT 


n n n i i "~i 
UUU11 / 




DS 


5 


; N/A 


n n n i i o 

UUU118 




DS 


1 


;RDADR: 'MUST FIND' COUNT 


n n n i i n 

uuuiiy 




DS 


1 


; READ, WRITE : CHECKSUM 


n n n i o n 
UUUlzU 


CSSTV 


DS 


4 


; RDADR : CKSUM, SEC, TRK, VOL 


n n n i n 
UU Ulz 1 


MONTIMEL 


EQU 


CSSTV+2 


;MSWAIT :MOTOR-ON TIME 


n n n i o o 
UU Ulzz 


MONTIMEH 


EQU 


MONTIMEL+1 




n n n i o o 
UUUlz j 


BUF 


DS 


2 


; PRENIB, POSTNIB : USER BUFFER 


n n n i o a 
UU U 1z4 




DS 


1 


; SEEK : PRIOR PHASE 


n n n i o c 
UUUlzo 


TRKN 


DS 


1 


; SEEK: TARGET TRACK 


n n n i o r 
UUUlzo 










n n n i o i 
UUUlz! / 


* LOCAL TEMPS: 








n n m i o 
UUUlzo 










n n n i on 

uu u iz y 




ORG 


$do 


; WE ' RE ALLOWED TO $FF 


n n n i on 
UUUloU 


BLKTEMP 


DS 


2 


; LOCAL TEMP FOR BLKNUMBER 


n n n i oi 
UUUlol 


BUFTEMP 


DS 


2 


; LOCAL TEMP FOR BUFFER ADDRESS 


n n n i on 
UUUloz 


TRACK 


DS 


1 


; LOCAL TEMP FOR TRACK 


n n n i o o 
UUUloo 


SECTOR 


DS 


1 


; LOCAL TEMP FOR SECTOR 


n n n i o /i 
UUU134 


RETRYADR 


DS 


1 


; LOCAL TEMP FOR SECTOR-FIND RETRIES 


n n n i o c 
UUUloo 


RETRYCNT 


DS 


1 


; LOCAL TEMP FOR I/O RETRIES 


n n n t o /~ 

UUUloo 


RECALCNT 


DS 


1 


; LOCAL TEMP FOR RECAL COUNT 


UU Ul J / 


BLKCOUNT 


DS 


1 


, rjliKb KIlOIJ -LU bAllbrl Jol IJiCUUW 1 


n n n i o o 
UUUloo 


SEEKWAIT 


DS 


1 


; <>0 IF SEEK DELAY NEEDED 


n n n i on 

uuuuy 


IRQMASK 


DS 


1 


; ENTRY ' I ' BIT 


n n n i /in 
UUU14U 


TEMP 


DS 


1 


; JUST A TEMP 


n n n i /i i 
UU Ul 4 1 




DEND 






n n n i a o 
UU U 1 4z 




PAGE 






UUU14 j 


* DRIVER INTERFACE AREA: 






n n n i /i a 
UU Ul 44 










n n n i /i c 
UUU14o 




DSECT 






n n n i a c 
UU U 1 4 b 




ORG 


$co 




n n n i a "~i 
UUU14 / 


D . COMMAND 


DS 


1 


; COMMAND CODE 


U00148 


D.UNITNUM 


DS 


1 


;UNIT NUMBER 


uuui4y 


D . BUFL 


DS 


2 


; BUFFER ADDRESS 


UU015U 


D.BUFH 


EQU 


D.BUFL+1 




U00151 


D . STATCODE 


EQU 


D . BUFL 


;DSTATUS CODE 


U00152 


D. STATBUF 


EQU 


D . BUFH 


;^DSTATUS LIST 


U00153 


D . BYTES 


DS 


2 


; BYTECOUNT 


U00154 


D. BLOCK 


DS 


2 


; REQUESTED BLOCKNUM 


UU0155 


D . BYTRD 


DS 


2 


; BYTES READ (READ) 


UU0156 




DS 


6 


;SPARES (OK AS TEMPS) 


U00157 




DEND 
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000158 




PAGE 








000159 


DIB1 


EQU 






;DIB FOR .Dl 


000160 




DW 


DIB2 




; FLINK 


000161 




DW 


MAIN 




; ENTRY POINT 


000162 




DFB 


3 




; NAME LENGTH 


000163 




ASC 


' . Dl 






000164 




DFB 


$80 




; DEVNUM: ACTIVE 


000165 




DFB 







; SLOT 


000166 




DFB 







,*UNIT NUMBER 


000167 




DFB 


$E1 ,1,0 




;TYPE, SUB, FILLER 


000168 




DW 


280 




;BLOCKCOUNT 


000169 




DW 


1 




;MANUFACTURER=APPLE 


000170 




DW 


$1100 




;VERSION=l . 1 


000171 












000172 


DIB2 


EQU 






,*DIB FOR . D2 


000173 




DW 


DIB3 




; FLINK 


000174 




DW 


MAIN 




; ENTRY POINT 


000175 




DFB 


3 




; NAME LENGTH 


000176 




ASC 


' . D2 






000177 




DFB 


$80 




; DEVNUM: ACTIVE 


000178 




DFB 







; SLOT 


000179 




DFB 


1 




;UNIT NUMBER 


000180 




DFB 


$E1 ,1,0 




; TYPE , SUB, FILLER 


000181 




DW 


280 




;BLOCKCOUNT 


000182 




DW 


1 




;MANUFACTURER=APPLE 


000183 




DW 


$1100 




;VERSION=l . 1 


000184 












000185 


DIB3 


EQU 






,*DIB FOR . D3 


000186 




DW 


DIB4 




; FLINK 


000187 




DW 


MAIN 




; ENTRY POINT 


000188 




DFB 


3 




; NAME LENGTH 


000189 




ASC 


' . D3 






000190 




DFB 


$80 




; DEVNUM: ACTIVE 


000191 




DFB 







; SLOT 


000192 




DFB 


2 




;UNIT NUMBER 


000193 




DFB 


$E1 ,1,0 




; TYPE , SUB, FILLER 


000194 




DW 


280 




;BLOCKCOUNT 


000195 




DW 


1 




; MANU F AC T URE R= AP P LE 


000196 




DW 


$1100 




;VERSION=l . 1 


000197 












000198 


DIB4 


EQU 






;DIB FOR . D4 


000199 




DW 







,*NO FLINK 


000200 




DW 


MAIN 




; ENTRY POINT 


000201 




DFB 


3 




; NAME LENGTH 


000202 




ASC 


' . D4 






000203 




DFB 


$80 




; DEVNUM: ACTIVE 


000204 




DFB 







; SLOT 


000205 




DFB 


3 




;UNIT NUMBER 


000206 




DFB 


$E1 ,1,0 




;TYPE, SUB, FILLER 


000207 




DW 


280 




; BLOCKCOUNT 


000208 




DW 


1 




; MANUFACTURER— APPLE 


000209 




DW 


$1100 




;VERSION=l . 1 


000210 




DW 


1 




/MANUFACTURER-APPLE 


000211 




DW 


$1100 




;VERSION=l . 1 


000212 












000213 




CHN 


DISK3 .MAIN . 


SRC 




000214 




INCLUDE 


SOSORG, 6, 1, 


254 




000215 












000216 




000217 


* END 


OF APPLE /// SOS 1 


3 SOURCE CODE 


FILE: 


DISK3.SRC 


000218 


***************************************************************** 


000219 












000220 












End of 


File -- 


- Lines: 220 Characters: 7516 
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FILE : "SOS . DISK3 . SUBS . SRC . TEXT" 



r\ n n r\ n i 

000001 


************************************************************************* 


r\ n n r\ n o 

000002 


* 


APPLE /// SOS 1.3 


SOURCE 


CODE FILE: DISK3 . SUBS 


SRC 


000003 












000004 


* 


ASSEMBLER: APPLE ] 


[ 6502 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 














000006 




PAGE 










00000 / 




REP 






40 




r\ n n r\ n o 

000008 


* 


NAME : CHKDRV 










000009 


* 


FUNCTION: CHECK IF MOTOR(S) RUNNING 




000010 




INPUT : NONE 










000011 


* 


RETURNS : ' BNE ' IF 


RUNNING 




000012 




: 'BEQ' IF 


NOT 








000013 




DESTROYS: AC,X 










000014 




REP 






40 




000015 


* 


NOTES : DUE TO A FLOATING 


PIN, THERE 




000016 


* 


COULD BE A GLITCH 


WHICH 


CAUSES THE 




000017 


* 


SHIFTER TO 'FLASH 


ONTO 


THE BUS 




000018 


* 


INSTEAD OF ALWAYS 


BEING 


TRISTATED. 




r\ n n r\ i n 

000019 


* 


THIS COULD CAUSE CHKDRV 


TO THINK 




r\ r\ r\ r\ *~) r\ 

000020 




THAT THE MOTOR IS 


SPINNING WHEN IT 




000021 




IS NOT. THUS WE WILL 


SAMPLE THE SHIFTER 




000022 




FOR 40 US AT 6-US 


INTERVALS. IF, AFTER 




000023 




THREE (3) CONSECUTIVE 


PASSES, ANY OF 




000024 


* 


THE PASSES SEES A 


'LOCKED' SHIFTER, 




r\ n n r\ n c 

000025 


* 


THEN WE SAY THE DRIVE 


IS STOPPED. 




r\ n n r\ n r 

000026 


* 












000027 


* 












r\ n n r\ n o 

00002b 


CHKDRV EQU 






* 




000029 




LDX 






#3 ; CHECK SHIFTER SEVERAL TIMES 


000030 


CHKD1 EQU 






* 




000031 




LDA 






Q6L+S60 


GET DATA 


000032 




CMP 






Q6L+$60 


HAS IT CHANGED? 


000033 




BNE 






CHANGED 


=>YES 


000034 




CMP 






Q6L+S60 


HAS IT CHANGED? 


r\ n n r\ o it 

000035 




BNE 






CHANGED 


=>YES 


000036 




CMP 






Q6L+560 


HAS IT CHANGED? 


r\ n n r\ o ^ 

000037 




BNE 






CHANGED 


=>YES 


000038 




CMP 






Q6L+S60 


HAS IT CHANGED? 


000039 




BNE 






CHANGED 


=>YES 


000040 




CMP 






Q6L+S60 


HAS IT CHANGED? 


000041 




BNE 






CHANGED 


=>YES 


000042 




CMP 






Q6L+560 


HAS IT CHANGED? 


000043 




BNE 






CHANGED 


=>YES 


000044 




CMP 






Q6L+$60 


HAS IT CHANGED? 


000045 




BNE 






CHANGED 


=>YES 


000046 




RTS 








IF EVER LOCKED, IT'S STOPPED 


000047 


* 












000048 


CHANGED EQU 






* 




000049 




DEX 










000050 




BNE 






CHKD1 


TRY SEVERAL TIMES 


000051 




DEX 






;SET CC=BNE 


000052 




RTS 






; RETURN ZFLAG APPROPRIATELY 


000053 




PAGE 










000054 




REP 






40 




000055 


* 


NAME : ADDTIME 










000056 




FUNCTION: ADD TO MOTOR 


UPTIME (S) 




000057 




INPUT : AC=NO. OF 25 


MS INCREMENTS 




000058 


* 


DESTROYS: Y 










000059 




REP 






40 




000060 


* 












000061 


ADDTIME EQU 






* 




UUUUoz 




PHA 






/PRESERVE AC 


000063 




LDY 






#4 


TABLE INDEX/COUNT 


000064 


ADD2 EQU 






* 




000065 




LDA 






DRIVESEL-1,Y ;IS IT SELECTED? 


000066 




BEQ 






ADD3 


=>NOPE 


000067 




PLA 










000068 




PHA 






; RECOVER DELTA-T 


000069 




CLC 










000070 




ADC 






UPTIME-1,Y 


ADD TO MOTOR UPTIME 


000071 




CMP 






IT1SEC+2 ;IS IT AT MAX TIME? 


000072 




BCC 






ADD2A 


=>NO, STORE NEW TIME 


000073 




LDA 






#T1SEC+1 ;YES, SET TO >1 SEC 


000074 


ADD2A EQU 










000075 




STA 






UPTIME-1,Y 




000076 


ADD 3 EQU 
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000077 




DEY 








000078 




BNE 




ADD2 


;=>DO ALL 4 DRIVES 


000079 












000080 




PLA 






; RESTORE AC 


000081 




RTS 








000082 




PAGE 








000083 




REP 




40 




000084 


* NAME 


RECAL 








000085 


* FUNCTION 


RECALIBRATE DRIVE HEAD 




000086 


* INPUT 


NONE 








000087 


* DESTROYS 


ALL REGISTERS 






000088 


* NOTE 


A 'QUIET' 


RECALIBRATE IS DONE 




000089 




USING TWO 


ITERATIONS. IF WE ARE 




000090 




LOST, THEN 


SEEK 48-TRACKS 




000091 




TOWARD TRACK ZERO. IF WE KNOW 




000092 




WHAT TRACK 


WE' 


RE CURRENTLY 




000093 




ON (+- 1/2 


TRACK) , THEN JUST 




000094 




ADD A LITTLE EXTRA AND SEEK 




000095 




TO TRACK ZERO. 


A 48-TRACK 




000096 




SEEK WILL 


ALWAYS GET US BACK 




000097 




ONTO THE MEDIA 


, EVEN IF WE 




000098 




WERE "OFF 


THE 


3AM" . FROM THAT 




000099 




POINT, THE 


2ND 


SEEK GETS US 




000100 




BACK TO TRACK 


ZERO QUIETLY. 




000101 




REP 




40 




000102 












000103 


REGAL 


EQU 








000104 




LDA 




#2 


; TWO ITERATIONS, PLEASE 


000105 


RECAL1 


EQU 








000106 




PHA 






; SAVE LOOPCOUNT 


000107 




LDX 




#560 


; SETUP SLOT FOR CORE RTNS 


000108 




JSR 




RDADR 


; WHERE ARE WE? 


000109 




BCC 




RECAL2 


;=>NOW WE KNOW 


000110 




JSR 




RDADR 


;GIVE SECOND SHOT 


000111 




BCC 




RECAL2 


;=>THAT GOT IT 


000112 




LDA 




#48 


;LOST? TRY 48-TRACK SEEK 


000113 




JMP 




RECAL 3 




000114 


RECAL2 


EQU 








000115 




LDA 




CSSTV+2 


; HERE 1 S WHERE WE ARE 


000116 




CLC 






;ADD SOME SO WE GET A 


000117 




ADC 




#3 


; HARDER SEEK TO ZERO 


000118 


REGAL 3 


EQU 








000119 




LDY 




D . UNITNUM 


;THIS IS NOW WHERE 


000120 




STA 




DRVTRACK, Y 


; WE ARE 


000121 




JSR 




FIXIRQ 


/ENABLE IRQ IF OK 


000122 












000123 




LDA 




#0 


/DESTINATION TRACK IS 00 


000124 




STA 




MONTIMEH 


; CLEAR MOTOR-UP TIME SO 


000125 




STA 




MONTIMEL 


; SEEK KNOWS HOW LONG RECAL 


000126 




JSR 




MYSEEK 


;=>SLAM IT BACK! 


000127 




PLA 






;HAVE WE DONE IT TWICE? 


000128 




TAY 








000129 




DEY 








000130 




TYA 








000131 




BNE 




RECAL1 


;=>DO TWO ITERATIONS 


000132 




RTS 








000133 




PAGE 








000134 




REP 




40 




000135 


* NAME 


SEEKDSK3 








000136 


* FUNCTION 


SEEK CURRENT DRIVE 




000137 


* INPUT 


AC— DESTINATION 


TRACK 




000138 


* OUTPUT 


NONE 








000139 


* DESTROYS 


ALL REGISTERS 






000140 


* NOTE 


MUST BE CALLED 


WHILE 




000141 




MOTOR IS 


RUNNING, IN 




000142 




1MHZ+ROM+IO MODE 




000143 




REP 




40 




000144 


SEEKDSK3 


EQU 




-k 




000145 




LDY 




PREVUNIT 


; GET DRIVENUM 


000146 




STY 




D. UNITNUM 


;SET IT UP 


000147 




JSR 




MYSEEK 


; MOVE I T ! 


000148 




RTS 








000149 




REP 




40 




000150 


* NAME 


MYSEEK 








000151 


* FUNCTION 


SEEK TO DESIRED TRACK 




000152 


* INPUT 


AC=DESTINATION 


TRACK 




000153 


* DESTROYS 


ALL REGISTERS 






000154 




REP 




40 




000155 


MYSEEK 


EQU 








000156 




STA 




TRKN 


; TEMP HOLD OF AC 


000157 




LDY 




D. UNITNUM 


; GET DRIVENUM 
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000158 






LDA 






DRVTRACK, Y 


; SETUP CURRENT TRACK 


000159 






ASL 






A 


; SET IN HALFTRACKS FOR SEEK 


000160 






STA 






CURTRK 


; FOR SEEK ROUTINE 


000161 






LDX 






#$60 


;SET UP SLOT FOR CORE RTNS 


000162 






LDA 






MONTIMEH 


; GET STARTING MOTOR TIME 


000163 






STA 






TEMP 




000164 
















000165 




NOTE : IRQ 


' S WHICH 


SUSPEND SEEK MAY CAUSE A 




000166 




SEEK FAILURE. WE 


WILL HAVE TO RECALIBRATE 




000167 




SINCE WE 


WON'T BE 


ON 


-TRACK. WE CAN NOT GET 




000168 




ON A HALFTRACK SINCE 


SEEK ALLOWS SETTLING 




000169 




TIME OF 


THE PHASE 


. BECAUSE VBL IS A SERIOUS 




000170 




OFFENDER 


WE INHIBIT 


HIM. 




000171 
















000172 






PHP 








; INHIBIT IRQ WHILE 


00017 j 






SEI 








; MESSING WITH VBL FLAGS 


000174 






LDA 






E . IER 




000175 






AND 






#518 




000176 






STA 






VBLSAVE 




000177 






STA 






E.IER 




000178 






PLP 








; RESTORE IRQ STATUS 


000179 






LDA 






TRKN 


; RESTORE DESTINATION TRACK 


000180 






STA 






DRVTRACK, Y 


; DEST IS NOW CURRENT 


000181 






ASL 






A 


;MAKE IT IN HALFTRACKS 


000182 






JSR 






SEEK 


; GO MOVE THE HEAD . . . 


000183 






LDA 






VBLSAVE 


; NOW ALLOW THAT 


000184 






ORA 






#$80 


; NASTY 


000185 






STA 






E.IER 


; VBL INTERRUPT 


000186 
















000187 




COMPUTE THE TIME USED 


BY 


SEEK: 




000188 
















000189 






LDA 






MONTIMEH 


; INCLUDE SEEKTIME IN 


000190 






SEC 










000191 






SBC 






TEMP 




000192 






JSR 






ADDTIME 


; TOTAL MOTOR UPTIME (S) 


000193 






RTS 










000194 






PAGE 










000195 






REP 






40 




000196 


* 


NAME : 


BLK2SECT 










000197 


* 


FUNCTION: 


COMPUTE 


TRACK/SECTOR FOR A BLOCK 




000198 


* 




AND ADJUST 


BUFFER ADDRESS 




000199 


* 


INPUT : 


D. BLOCK, 


D. 


BUF 






r\ n r\ o n r\ 

000200 


* 


OUTPUT : 


TRACK, SECTOR, 


D.BUF 




000201 


* 


DESTROYS : 


AC,Y 










000202 






REP 






40 




000203 


* 














000204 


BLK2SECT 


EQU 










000205 






LDA 






BLKTEMP+1 


; GET HI BLK HALF 


000206 






ROR 






A 


;MOVE LO BIT TO CARRY 


000207 






LDA 






BLKTEMP 


; GET LO HALF 


000208 






ROR 






A 


; COMBINE WITH HI BIT 


000209 






LSR 






A 




000210 






LSR 






A 


; FINISH OFF DIVIDE-BY-8 


000211 






STA 






TRACK 


; THAT 1 S THE TRACK 


000212 






LDA 






BLKTEMP 


; GET LO HALF AGAIN 


000213 






AND 






#7 




000214 






TAY 










000215 






LDA 






SECTABLE , Y 


; GET START SECTOR 


000216 






STA 






SECTOR 




000217 


* 














000218 


* 


ADJUST BUFFER ADDRESS 


SO 


THAT I/O 




000219 




WON'T WRAPAROUND 


IN 


THE 


BANK: 




000220 


* 


(THIS ALGORITHM RIPPED OFF FROM 1.0) 




000221 


* 














000222 






LDA 






BUFTEMP+1 


; GET BUFFER HI ADDRESS 


000223 






LDY 






$14 0+BUFTEMP+ 1 


; AND XTND BYTE 


000224 






CMP 






#$82 


;IF RAM ADDR >=8200 THEN BUMP 


000225 






BCC 






NOADJ 


; NEXT BANK PAIR 


000226 






CPY 






#$80 




000227 






BCC 






NOADJ 


;=>NOT USING BANKPAIR 


000228 






CPY 






#$8F 


; SPECIAL BANK 0? 


000229 






BEQ 






NOADJ 


; =>YES 


000230 






AND 






#$7F 


;DROP HI ADDRESS AND 


000231 






STA 






BUFTEMP+1 


; BUMP BANK NUMBER 


000232 






INC 






$1400+BUFTEMP+1 




000233 


* 














000234 


NOADJ 


EQU 










000235 






LDA 






BUFTEMP+1 


;COPY BUFFER ADDRESS 


000236 






STA 






BUF+1 


; FOR PRE & POSTNIB 


000237 






LDA 






BUFTEMP 




000238 






STA 






BUF 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 



LDA 
STA 
RTS 



$1400+BUFTEMP+1 
$1400+BUF+1 



SECTABLE DFB 
PAGE 

REP 40 

* NAME : MOREBLKS 

* FUNCTION : SETUP TO DO NEXT BLOCK 

* INPUT : NONE 

* RETURNS : ' BNE ' IF MORE TO DO 

* : ' BEQ ' IF NO MORE TO DO 

* DESTROYS : NOTHING 



$00,$04,$08,$OC,$01,$05,$09,$OD 



MORE 2 



* NAME 

* FUNCTION 

* INPUT 

* DESTROYS 



FIXIRQ 



40 



BUFTEMP+1 
BUFTEMP+1 
BLKTEMP 
MORE 2 
BLKTEMP+1 



4 

40 



APPROPRIATE 



40 



IRQMASK 
FIXRET 



;BUMP BUFFER ADDRESS 
;BUMP BLOCK NUMBER 



;MORE BLOCKS TO GO? 
; RETURN RESULT OF DEC 



REP 

EQU 
INC 
INC 
INC 
BNE 
INC 
EQU 
DEC 
RTS 
SKP 
REP 
FIXIRQ 

ENABLE IRQ IF 
NONE 
NOTHING 
REP 

EQU 
PHA 
LDA 
BMI 
CLI 
EQU 
PLA 
RTS 



CHN DISK3. DATA. SRC 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . SUBS . SRC 
************************************************************************* 



; SHOULD IRQ BE ENABLED? 
;=>NO, LEAVE IT ALONE 
; ENABLE IRQ 



End of File 



Lines: 286 Characters: 9045 
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FILE : "SOS . DISK3 . USEL . SRC . TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . USEL . SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



NAME : 
FUNCTION : 

INPUT 

OUTPUT 

DESTROYS 



PAGE 

REP 40 
UNITSEL 

SELECT S START A DRIVE, 
SET UP MOTOR & SEEK DELAYS 
NONE 

MONTIME, SEEKTIME 
ALL REGISTERS 



REP 

EQU 
LDY 
LDA 
STA 
STA 
STA 



40 



D.UNITNUM 
#0 

SEEKWAIT 
MONTIMEL 
MONTIMEH 



* SEE IF MOTOR(S) STILL SPINNING: 



JSR 
BNE 



CHKDRV 
SPINNING 



NO MOTOR(S) SPINNING. DESELECT 
ALL MOTORS AND START AFRESH: 



LDX 
LDA 
STA 
STA 
JSR 
JMP 
REP 

MOTOR(S) SPINNING : OURS? 

PINNING EQU 
LDA 
BNE 



MD. INT 

#0 

DRIVESEL+0 

UPTIME+0 

EXTDESEL 

SETTIME 

40 



DRIVESEL, Y 
GOFORIT 



WE AREN' 
DRIVE, 



T SPINNING. SHUTDOWN ANOTHER 
IF NECESSARY, TO GET GOING : 



CPY 
BEQ 



#0 

SETTIME 



; GET DRIVENUM 
; ASSUME NO SEEKWAIT 
; WILL BE NEEDED 
/CLEAR MONTIME 



;MOTOR(S) POWERED UP? 
;=>YES. WHO IS IT? 



; DESELECT ALL 
;SHOW INTERNAL AS 
; NOT SELECTED 

/INDICATE DRIVE IS FULLY STOPPED 
; DESELECT ALL EXTERNALS TOO 
;GO SETUP MOTOR DELAY 



;HAD WE BEEN SELECTED? 
;=>YES, GO FOR IT RIGHT AWAY. 



; ARE WE THE INTERNAL DRIVE? 
;=>YES, LEAVE EXT MOTOR ALONE 



WE'RE AN EXTERNAL DRIVE. STOP ALL EXTERNAL MOTORS 
UNCONDITIONALLY, BUT LEAVE THE INTERNAL MOTOR ALONE. 

IF WE *DID* HAVE TO STOP ANOTHER EXTERNAL, THEN 
MAKE SURE WE SET THE CORRECT PRE-SEEK DELAY! 



LDA 
ORA 
ORA 
ORA 
BEQ 
INC 
JSR 
JMP 
PAGE 
REP 

OUR DRIVE IS SPINNING. 
DEPENDING OF HOW LONG THE MOTOR'S BEEN ON, 
THIS COMMAND MAY REQUIRE A MOTOR DELAY. 



#0 

DRIVESEL+3 

DRIVESEL+2 

DRIVESEL+1 

SETTIME 

SEEKWAIT 

EXTDESEL 

SETTIME 

40 

GO FOR IT! 



SEE IF ANOTHER EXTERNAL 
HAD BEEN 
SELECTED 
BEFORE . . . 
=>NO, SEEK DELAY IS UNNECESSARY 
YES, DELAY BEFORE STEPPING 
DESELECT ALL EXTERNALS 
=>GO SETUP MOTOR DELAY 



EQU 
LDX 
LDA 
SEC 
SBC 
BCS 
LDA 
JMP 



D . COMMAND 
MTIMES,X 

UPTIME, Y 

SELECT 

#0 

SELECT 



; GET CURRENT COMMAND 

; GET REQUIRED UPTIME FOR IT 

; DRIVE RUNNING LONG ENOUGH? 
;=>NO, AC NOW HAS DELTA-T 
/OTHERWISE, WAIT=0 
;SET MONTIME & SELECT DRIVE 
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000077 


REP 




40 




000078 










r\ n n r\ "~i rs 

000079 


* ALL MOTORS WERE OFF. CHOOSE THE 




r\ n n r\ o n 

000080 


* APPROPRIATE MOTOR- 


-ON TIME: 




r\ n n r\ o i 

000081 










r\ n n r\ o o 

ooooaz 


SETT IME EQU 




* 




r\ n n r\ o o 

000083 


LDA 




#0 /INDICATE THAT 


000084 


STA 




UPTIME, Y 


THE DRIVE WAS OFF 


000085 


LDX 




D. COMMAND ; GET CURRENT COMMAND 


000086 


LDA 




MTIMES,X ; GET CORRECT DELAY TIME 


000087 


REP 




40 




r\ n n r\ o o 

000088 










r\ n n r\ o n 

000089 


* SELECT THE DRIVE & 


START 


IT: 




000090 










000091 


SELECT EQU 








000092 


STA 




MONTIMEH 


NEGATE IT BECAUSE 


000093 


LDA 




#0 


IT GETS INCREMENTED 


000094 


SEC 






INSTEAD OF 


000095 


SBC 




MONTIMEH 


DECREMENTED 


000096 


STA 




MONTIMEH 


STUFF MOTOR DELAY 


00009 / 


CPY 




#1 


ARE WE THE INTERNAL DRIVE? 


000098 


BCS 




SELEXT 


=>NO, AN EXTERNAL 


n n n n n n 

000099 


LDA 




IS. INT 


I/O SELECT INTERNAL 


000100 


LDA 




MS . INT 


MOTOR SELECT INTERNAL 


n n n n n i 

000101 


JMP 




UNITRET 


=>ALL DONE! 


000102 










000103 


SELEXT EQU 








000104 


LDA 




IS. EXT 


I/O SELECT EXTERNAL 


000105 


CPY 




#2 


ARE WE 2, 3, OR 4 ? 


000106 


BCS 




NOTD2 


— >DEFINITELY 3 OR 4 


n n n n r\~i 

00010 / 


LDA 




MD.EXT1 ; MOTOR SELECT 


n n n *\ no 

000108 


LDA 




MS. EXT 2 


ONLY . D2 


n n n n nn 

000109 


JMP 




UNITRET 


=>ALL DONE! 


n n n i i n 

000110 










000111 


N0TD2 EQU 




* 




000112 


BNE 




ISD4 


=>DEFINITELY NOT 3 


000113 


LDA 




MS. EXT 1 ; MOTOR SELECT 


000114 


LDA 




MD.EXT2 


ONLY .D3 


000115 


JMP 




UNITRET 


=>ALL DONE! 


n n n i i /~ 

000116 










000117 


ISD4 EQU 








000118 


LDA 




MS. EXT 1 ; MOTOR SELECT 


n n n i i n 

000119 


LDA 




MS. EXT 2 


ONLY .D4 


000120 










000121 










000122 


UNITRET EQU 








000123 


LDA 




MOTORON ; PROVIDE MOTOR POWER 


000124 


LDA 




#1 ;SAY WE'VE SELECTED 


n n r\ *\ o c 

000125 


STA 




DRIVESEL, Y 


THIS DRIVE 


000126 










n n n n o ^ 

000127 


* IF WE HAVE MOTORTIME TO 


BURN, 




n n n n no 

000128 


* THEN DELAY 50 MS. 


THIS 


ENSURES 




000129 


* A GOOD SOLID CHKDRV AFTER 




000130 


* TURNING ON THE MOTOR. 






000131 










000132 


LDA 




MONTIMEH 


ANY MOTORTIME? 


n n n i o o 

000133 


BPL 




UNITRTS 


=>NO, WE GO FOR IT. 


n n r\ i n yi 

000134 


LDY 




#5 ;5*10 MS 


n n n n o c 

000135 


UNITDEL EQU 








n n n n n /~ 

000136 


LDA 




#100 ;100*100US IS 10MS 


00013 / 


JSR 




MSWAIT 




000138 


DEY 








000139 


BNE 




UNITDEL 




000140 


LDA 




#2 ; INCLUDE THE 50MS 


000141 


JSR 




ADDTIME 


IN MOTOR UPTIME (S) 


000142 


UNITRTS EQU 








000143 


RTS 








000144 


SKP 




5 




n n n n a c 

000145 


REP 




40 




000146 


* NAME : EXTDESEL 








000147 


* FUNCTION: DESELECT 


ALL EXTERNAL DRIVE MOTORS 




000148 


* INPUT : NONE 








000149 


* DESTROYS: AC,X 








000150 


REP 




40 




000151 










000152 


EXTDESEL EQU 








000153 


LDA 




MD.EXT1 ; DESELECT ALL EXTERNAL 


000154 


LDA 




MD.EXT2 


DRIVE MOTORS 


000155 


LDX 




#3 /SHOW THAT THEY ARE 


000156 


LDA 




#0 


ARE ALL DEAD DUCKS 


000157 


EDS1 STA 




DRIVESEL, X 
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; DRIVE MOTORS ARE OFF 



000158 STA 

000159 DEX 

000160 BNE 

000161 RTS 
000162 

000163 CHN 
000164 

000165 ********************** 

000166 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . USEL . SRC 

000167 ************************************************************************* 

000168 



UPTIME, X 
EDS1 

DISK3 . SUBS . SRC 



************** 



End of File 



Lines: 168 Characters: 5663 
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FILE: "SOS. DISK3.WRT. SRC. TEXT" 



r\ n n r\ n i 

000001 


********************************************************* 


r\ n n r\ n o 

000002 


* APPLE /// SOS 


1.3 SOURCE 


iTinTT T7 1 TT T? • TlTCl'K"? MDT 
L-UlJij r _L J_iJr_i . 1J±oiaj . vvrvl 


.SRC 


000003 








************************** 


000004 


* ASSEMBLER: APPLE ] [ 6502 


ACCT7MP.T T?R -Ft- rim APPT T? 


COMPUTER TOOLKIT 


000005 












000006 




PAGE 








00000 / 




REP 


40 






r\ n n r\ n o 

000008 


* WRITE 










000009 




REP 


40 






000010 












r\ n r\ r\ i t 

000011 


WRITEREQ 


EQU 


* 






000012 




JSR 


DT 1^9 CT7PT 


; COMPUTE TRK/ SECTOR THIS BLOCK 


000013 




LDA 




;SET 2 MHZ 


000014 




AND 


ff 9 / r 






000015 




STA 








000016 




JSR 


PPT7KITP. 
c Kill IN ± D 




PRENIBBLIZE FOR WRITE 


000017 




JSR 


QITPTHP TD 
OLjV. 1 Ur\J_U 




WRITE IT OUT. . . 


000018 




BCS 






=>SOMETHINC S WRONG 


000019 












r\ n n r\ n n 

000020 




INC 


DLjU 1 UK 


;BUMP TO NEXT 


000021 




INC 






LOGICAL SECTOR 


000022 




INC 




;BUMP SECTOR BUFFER ADDRESS 


000023 




LDA 


E^REG 


;SET 2 MHZ 


000024 




AND 


ff ■? / r 






r\ n n r\ o it 

000025 




STA 








r\ r\ r\ r\ r 

000026 




JSR 


PPT7KITP. 




PRENIBBLIZE FOR WRITE 


000027 




JSR 


oEjL. 1 UK1U 




WRITE IT OUT 


000028 




BCS 


T/JP TTI7PP 
vvr\_L 1 rjrvri 




=>SOMETHING ' S WRONG 


r\ n n r\ n rs 

000029 












000030 


* MORE BYTES TO 


DO? 








000031 












000032 




JSR 


Isl'.J r\r_j D J_i r\ O 




SETUP FOR NEXT 


000033 




BNE 






=>MORE TO DO 


r\ n n r\ o /i 

000034 




LDA 


in 
ff u 


/GOOD RETURN 


000035 




JMP 


EXIT 






000036 












000037 


WRITERR 


EQU 


* 






r\ n n r\ o r> 

000038 




JMP 


EXIT 


; RETURN ERROR CODE 


000039 




PAGE 








000040 




REP 


4 






000041 


* STATUS - 










000042 




REP 


40 






000043 












000044 


STATUS 


EQU 


* 






000045 




LDX 


Itcn 

ff •? ou 


; DUMMY SLOT 


000046 




LDA 




/SENSE WRITE PROTECT 


000047 




LDA 


Q7L, X 






000048 




ASL 






PRESERVE IT IN CARRY 


000049 




LDA 


Q6L X 




BACK TO READ MODE 


000050 




LDA 


Jin 




NOW MOVE BIT TO 


000051 




ROL 






PROPER POSITION 


000052 




ROL 






($02) 


000053 




LDY 


in 

ff u 






000054 




STA 




; RETURN IT 


r\ n n r\ c it 

000055 




LDA 


ff u 


;GOOD RETURN 


000056 




JMP 


EXIT 


; DONE 


000057 




PAGE 








000058 




REP 


40 






000059 


* INIT 










000060 




REP 


4 






r\ n n r\ ^ t 

000061 


* 










000062 


INIT 


EQU 


* 






000063 




LDA 


IN IT FLAG 




INIT' ED YET? 


000064 




BMI 


GOODINIT 




=>YES, DONE 


000065 


* 










000066 




LDA 


#$60 


; SETUP SLOT FOR 


000067 




STA 


IBSLOT 




CORE ROUTINES 


000068 




LDA 


#$FF 




PREVENT SECOND 


000069 




STA 


IN IT FLAG 




INIT 


000070 




LDA 


#0 


; CLEAR STUFF OUT 


000071 




STA 


PREVUNIT 


;SOSBOOT JUST USED .Dl 


000072 




LDY 


#4 






000073 


CLRDRVS 


EQU 


* 






000074 




LDA 


#0 






000075 




STA 


DRIVESEL-l, Y 


; NOBODY SELECTED 


000076 




STA 


UPTIME-1,Y 




ALL OFF 
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000077 


STA 


DRVTRACK-1, Y 




000078 


DEY 






000079 


BNE 


CLRDRVS 




000080 


DO 


1-TEST /ONLY IF NOT TESTING 


000081 








000082 


* SET UP . Dl SINCE LOADER 


' S USING IT: 




000083 








000084 


LDA 


E.REG ;SET 1MHZ FOR THE 


000085 


ORA 


#$80 


STATEMACHINE I/O 


000086 


STA 


E.REG 




000087 


JSR 


CHKDRV ;IS .Dl MOTOR SPINNING? 


000088 


BEQ 


INIT2 


=>NO, MOTOR'S OFF 


000089 


LDA 


#T200MS ;UPTIME GOOD FOR READS 


000090 


STA 


UPTIME+0 




000091 


INIT2 EQU 






000092 


LDA 


#1 




000093 


STA 


DRIVESEL+0 


.Dl IS THE CURRENT DRIVE 


000094 


LDA 


$0300+CURTRK 


RETRIEVE CURRENT TRACK 


000095 


STA 


DRVTRACK+0 


REMEMBER IT 


000096 


FIN 






000097 








000098 


* SET UP JMP TABLE FOR CORRECT ROM: 




000099 








000100 


DO 


REV0ROM ; ONLY IF SUPPORTING IT! 


000101 


LDA 


$F1B9 ;LOOK FOR START OF RDADR 


000102 


CMP 


#$A0 


IS IT RDADR (REV1) ? 


000103 


BEQ 


INITREV1 


=>YES 


000104 


CMP 


#$60 


IS IT END OF READ (REVO)? 


000105 


BNE 


INITERR 


=>NEITHER! 


000106 


LDY 


#0 


REV=0 


000107 


BEQ 


INITVECT 


(ALWAYS TAKEN) 


000108 


INITREV1 EQU 






000109 


LDY 


#VSIZE 




000110 


INITVECT EQU 






000111 


STY 


ROMREV ;SET ROM REVISION INDICATOR 


000112 


LDX 


#VSIZE 




000113 


MOVEVECT EQU 






000114 


LDA 


REV0,Y ; GET A BYTE 


000115 


STA 


JMPT AB , Y ;MOVE IT 


000116 


I NY 






000117 


DEX 






000118 


BNE 


MOVEVECT 




000119 


FIN 






000120 


GOODINIT EQU 


* 




000121 


LDA 


#0 


RETCODE— GOOD, IF YOU CARE 


000122 


CLC 




SAY 'GOOD INIT' 


000123 


BCC 


EXIT 


(ALWAYS TAKEN) 


000124 


DO 


REV0ROM 




000125 


INITERR EQU 






000126 


SEC 


;SAY 'BAD INIT' 


000127 


* FALL THRU TO EXIT 






000128 


FIN 






000129 


PAGE 






000130 


REP 


40 




000131 


* — EXIT PATH — 






000132 


REP 


40 




000133 








000134 


EXIT EQU 


* 




000135 


PHA 


;SAVE RETURN CODE 


000136 








000137 


* UPDATE UPTIME BY 50 MS 


(3 SECTOR-TIMES) 




000138 


* TO ACCOUNT FOR READ/WRITE TIME: 




000139 








000140 


LDA 


D. COMMAND ; GET COMMAND 


000141 


CMP 


#2 ; SENSE OR INIT? 


000142 


BCS 


EXIT2 


=>YES, NO TIME USED UP 


000143 


LDA 


#2 


TIME=50 MS (2 UNITS) 


000144 


JSR 


ADDTIME ;BUMP UPTIME (S) 


000145 








000146 


* RESTORE CALLER ENVIRONMENT: 




000147 








000148 


EXIT2 EQU 


* 




000149 


LDA 


E.REG 


GET CURRENT STATE 


000150 


AND 


#$20 


OF THE SCREEN 


000151 


ORA 


ESAVE 


MERGE WITH CALLER STATE 


000152 


STA 


E.REG 




000153 


JSR 


FIXIRQ 


RE-ENABLE IRQ IF OK 


000154 


LDA 


MOTOROFF ; START MOTOR-OFF TIMEOUT 


000155 


PLA 


; RESTORE RETURN CODE 


000156 


DO 


TEST 


IF TEST, NO SYSERR 


000157 


RTS 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 



ELSE 

BNE 

CLC 

RTS 

EQU 

JSR 

FIN 



;=>ERROR RETURN VIA SYSERR 
;GOOD RETURN W/CARRY CLEAR 
; RETURN VIA SYSERR 



CHN DISK3 . SIO . SRC 

************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 .WRT . SRC 

************************************************************************* 



End of File 



Lines: 170 Characters: 5441 
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FILE: "SOS. EQUATES. TEXT" 



r\ n n r\ n i 

000001 


******************************************************** 


r\ n n r\ n o 

000002 


* 


APPLE 


/// 


SOS 


1.3 SOURCE 


CODE FILE: EQUATES 




000003 












* * * * 




000004 


* 


ASSEMBLER : 


APPLE ] [ 


6502 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 


















000006 


* 
















00000 / 










ENTRY 




BFMGR 




r\ n n r\ n o 

000008 


* 
















000009 




BFM INITIALIZATION ENTRIES 




000010 




( INIT 


CODE 


FOUND IN 


INIT 


. SRC) 




000011 


* 
















000012 










ENTRY 




BFMFCB1 


FCB PAGE 1 ADDR 


000013 










ENTRY 




BFMFCB2 


AND PAGE 2 


000014 










ENTRY 




FCBZPP 




000015 










ENTRY 




SISTER 




000016 










ENTRY 




PATHBUF 




000017 










ENTRY 




VCB 




000018 










ENTRY 




WORKS PC 




r\ n n r\ i n 

000019 










ENTRY 




PFIXPTR 




r\ r\ r\ r\ *~) r\ 

000020 










ENTRY 




BMAPAGE 




000021 










ENTRY 




BMBPAGE 




000022 










ENTRY 




FCBADDRH 




000023 














BMAMADR 




000024 










ENTRY 




BMBMADR 




000025 


* 
















000026 


* 
















000027 










EXTRN 




LEVEL 


FILE LEVEL {LOW BYTE) 


r\ n n r\ n o 

00002b 










EXTRN 




OPMSGRPLY 


OPERATOR MESSAGE 


r\ n n r\ n n 

000029 










EXTRN 




DATETIME 


THANKS TOM. . . 


000030 










EXTRN 




DMGR 


THANKS BOB . . . 


000031 










EXTRN 




REQBUF 




000032 










h.A 1 KIM 




REQFXBUF 




000033 










EXTRN 




GETBUFADR 




r\ n n r\ o /i 

000034 










EXTRN 




RELBUF 




000035 










EXTRN 




BLKDLST 




r\ n n r\ o ^ 

000036 










EXTRN 




SERR 




000037 










EXTRN 




BACKMASK 




000038 


* 
















000039 




ERRORS 














000040 


















000041 










h.A 1 KIM 




SYSERR 




000042 


* 
















r\ n n r\ a o 

000043 










EXTRN 




BADPATH 


INVALID PATHNAME SYNTAX 


000044 










EXTRN 




FCBFULL 


FILE CONTROL BLOCK FULL 


000045 










EXTRN 




BADREFNUM 


INVALID REFNUM 


000046 










EXTRN 




PATHNOTFND 


PATHNAME NOT FOUND 


000047 










EXTRN 




VNFERR 


VOLUME NOT FOUND 


000048 










EXTRN 




FNFERR 


FILE NOT FOUND 


000049 










EXTRN 




DUPERR 


DUPLICATE FILE NAME ERROR 


000050 










h.A 1 KIM 




DUPVOL 


DUPLICATE VOLUME CAN'T BE LOGGED IN. 


000051 










EXTRN 




OVRERR 


NOT ENOUGH DISK SPACE FOR PREALLOCATION 


000052 










EXTRN 




DIRFULL 


DIRECTORY FULL ERROR 


000053 










EXTRN 




CPTERR 


FILE INCOMPATIBLE SOS VERSION 


000054 










EXTRN 




TYPERR 


NOT CURRENTLY SUPPORTED FILE TYPE 


000055 










EXTRN 




EOFERR 


POSITION ATTEMPTED BEYOND END OF FILE 


000056 










EXTRN 




POSNERR 


ILLEGAL POSITION ( L . T . OR G . T . $FFFFFF) 


000057 










EXTRN 




ACCSERR 


FILE ACCESS R/W REQUEST CONFLICTS WITH ATTRIBUTES . 


000058 










EXTRN 




BTSERR 


USER SUPPLIED BUFFER TOO SMALL 


000059 










EXTRN 




FILBUSY 


EITHER WRITE WAS REQUESTED OR WRITE ACCESS ALREADY ALLOCATED 


000060 










EXTRN 




NOTSOS 


NOT A SOS DISKETTE 


OUOOfel 










EXTRN 




BADLSTCNT 


INVALID VALUE IN LIST PARAMETER 


000062 










EXTRN 




XDISKSW 


DISK SWITCHED 


000063 










EXTRN 




NOTBLKDEV 


NOT A BLOCK DEVICE 


000064 










EXTRN 




XNOWRITE 


DISK/MEDIA IS HARDWARE WRITE PROTECTED 


000065 










EXTRN 




XIOERROR 


INFORMATION ON BLOCK DEVICE NOT ACCESSABLE 


000066 










EXTRN 




DIRERR 


DIRECTORY ENTRY COUNT INCONSISTENT WITH ACTUAL ENTRIES 


000067 










EXTRN 




BITMAP ADR 


BIT MAP DISK ADDRESS IMPOSSIBLE 


000068 


* 
















000069 




FATAL 


ERRORS 










000070 


* 
















000071 










EXTRN 




SYS DEATH 




000072 


* 
















000073 










EXTRN 




VCBERR 


VOLUME CONTROL BLOCK NOT USABLE 


000074 










EXTRN 




ALCERR 


ALLOCATION BLOCKS INVALID 


000075 










EXTRN 




TOOLONG 


PATHNAME BUFFER OVERFLOW 


000076 










PAGE 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 



CONSTANTS 



DL1M1 1 




EQU 


$2F 


UbLlMllrLK lb L-UKKhlM 1 hi AN AbOll / 


SEEDTYP 




EQU 


1 




SAPTYP 




EQU 


2 




TRETYP 




EQU 


3 




DIRTYP 




EQU 


$D 




HEDTYP 




EQU 


$E 




RDCMD 




EQU 


$0 




WRTCMD 




EQU 


$1 




RPTCMD 




EQU 


$9 




STATCMD 




EQU 


$02 


REQUEST STATUS OF BLOCK DEVICE. (BIT = WRITE 


STATSUB 




EQU 


$0 




PRETIME 




EQU 


$20 


COMMAND NEEDS CURRENT DATE /TIME STAMP 


PREREF 




EQU 


$40 


GOM1YAN1J Khj(JUlKiLb tLB AIJUKrLbo AWL) VrLKlr: 1L.A1 ±UN 


PRE PATH 




EQU 


$80 


C OMMAN D HAS PATHNAME TO P RE P ROC E S S 


SISTER 




EQU 


$1400 




* VOLUME 


STATUS 


CONSTANTS 


(BITS ) 




DSWITCH 




EQU 


$40 


FOR DISK SWITCHED ERROR RECOVERY. 


* FILE STATUS CONSTANTS 






DATALC 




EQU 


$1 


DATA BLOCK NOT ALLOCATED . 


IDXALC 




EQU 


$2 


INDEX NOT ALLOCATED 


TOPALC 




EQU 


$4 


TOP INDEX NOT ALLOCATED 


STPMOD 




EQU 


$8 


STORAGE TYPE MODIFIED 


USEMOD 




EQU 


$10 


FILE USAGE MODIFIED 


EOFMOD 




EQU 


$20 




DATMOD 




EQU 


$40 


DATA BLOCK MODIFIED 


IDXMOD 




EQU 


$80 


INDEX BLOCK MODIFIED 


FCBMOD 




EQU 


$80 


HAS FCB/ DIRECTORY BEEN MODIFIED? (FLUSH) 


* FILE ATTRIBUTES CONSTANTS 




READEN 




EQU 


$1 


READ ENABLED 


WRITEN 




EQU 


$2 


WRITE ENABLED 


NLINEN 




EQU 


$10 


"NTTrTYr T T"MT7 T7T,T7\"DT TP Pi 


BKBITVAL 




EQU 


$20 


FILE NEEDS BACKUP IF SET (BKBITFLG) 


RENAMEN 




EQU 


$40 


RENAME OK WHEN ON . 


DSTROYEN 




EQU 


$80 


PiT7 C TDAV r\"LT TYTLirrM f~\T\l 






PAGE 






* HEADER 


INDEX 


CONSTANTS 






HNLEN 




EQU 


$0 


HEADER NAME LENGTH (OFFSET INTO HEADER) 


*HNAME EQU $1 ; 


HEADER NAME 




HPENAB 




EQU 


$10 


PASSWORD ENABLE BYTE 


HPASS 




EQU 


$11 


ENCODED PASSWORD 


HCRDT 




EQU 


$18 


HEADER CREATION DATE 


* HCRTM EQU $1A 


; HEADER 


CREATION TIME 




HVER 




EQU 


$1C 


SOS VERSION THAT CREATED DIRECTORY 


HCMP 




EQU 


$1D 


BACKWARD COMPATIBLE WITH SOS VERSION 


HATTR 




EQU 


$1E 


HEADER ATTRIBUTES- PROTECT ETC. 


* HENTLN 


EQU S1F ; LENGTH 


OF EACH ENTRY 





* HMENT EQU $20 ; MAXIMUM NUMBER OF ENTRIES/BLOCK 
HCENT EQU $21 

HRBLK EQU $23 

HRENT EQU $25 

HRELN EQU $2 6 

VBMAP EQU HRBLK 

VTBLK EQU HRENT 

* VOLUME CONTROL BLOCK INDEX CONSTANTS 



CURRENT NUMBER OF FILES IN DIRECTORY 
OWNER'S DIRECTORY ADDRESS 
OWNER'S DIRECTORY ENTRY NUMBER 
OWNER'S DIRECTORY ENTRY LENGTH 

(USED FOR ROOT DIRECTORY ONLY) 



VCBSIZE EQU 
VCBNML EQU 
VCBNAM EQU 
VCBDEV EQU 
VCBSTAT EQU 
VCBTBLK EQU 
VCBTFRE EQU 
VCBROOT EQU 
*VCBMORG EQU $18 ; MAP ORGANIZATION (NOT SUPPORTED BY V 0) 
*VCBMBUF EQU $19 ; BIT MAP BUF NUM 

VCBDMAP EQU $1A ; FIRST (DISK) ADDRESS OF BITMAP (S) 

VCBCMAP EQU $1C ; RELATIVE ADDRESS OF BIT MAP WITH SPACE (ADD TO VCBDMAP) 

*VCBMNUM EQU $1D ; RELATIVE BIT MAP CURRENTLY IN MEMORY 

VCBOPNC EQU $1E ; CURRENT NUMBER OF OPEN FILES. 



$20 


CURRENT VCB IS 32 BYTES PER ENTRY 


(VER 


0) 





VOLUME NAME LENGTH BYTE 






1 


VOLUME NAME 






$10 


VOLUME'S DEVICE 






$11 


VOLUME STATUS. (80=FILES OPEN. 40= 


=DISK 


SWITCHED 


$12 


TOTAL BLOCKS ON THIS VOLUME 






$14 


NUMBER OF UNUSED BLOCKS 






$16 


ROOT DIRECTORY (DISK) ADDRESS 
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UU Ul O / 


VCBSWAP 


EQU 


$1F 


ADR/ 1 6 










n n n i c o 

UUUloo 


* 








n n n i en 

uuuioy 


* 


FILE CONTROL 


BLOCK INDEX CONSTANTS 


n n n i r n 
UUUI 6U 


* 








UUUI 61 


FCBREFN 


EQU 





nnni to 
UU U 1 bz 


FCBDEVN 


EQU 


1 


n n n i c o 

UUUlbo 


*FCBHEAD EQU 2 


; BLOCK 


ADDRESS OF FILE 


n n n i r a 
UUUI b4 


*FCBDIRB EQU 4 


; BLOCK 


ADDRESS OF FILE 


n n n i 
UUUlbo 


FCBENTN 


EQU 


6 


000166 


FCBSTYP 


EQU 


7 


n n n i ri 

UUUlb / 


FCBSTAT 


EQU 


8 


n n n i r o 
UUUlbo 


FCBATTR 


EQU 


9 


n n n i r n 

uuui by 


FCBNEWL 


EQU 


$A 


n n n i in 
UUUI /U 


FCBBUFN 


EQU 


$B 


000171 


FCBFRST 


EQU 


$C 


n n n i in 

UUUI i z 


FCBIDXB 


EQU 


$E 


000173 


FCBDATB 


EQU 


$10 


n n n i o a 
UUUI /4 


FCBMARK 


EQU 


$12 


000175 


FCBEOF 


EQU 


$15 


n n n i ~i r 

0UU1 lb 


FCBUSE 


EQU 


$18 


000177 


FCBSWAP 


EQU 


$1A 


n n n i o o 
0UU1 /o 


FCBLEVL 


EQU 


$1B 


n n n i to 

uuui /y 


FCBDIRTY 


EQU 


$1C 


n n m on 
UU U 1 O U 






PAGE 




n n n i o i 
UUUlol 


* 








n n n i on 
UU U 1 oz 


* 


ZERO PAGE STUFF 




n n n i o o 
UU Ul o o 










n n n i o a 
UUU1H4 


PAR 


EQU 


$A0 


n n n i o c 
UUUloo 


COMMAND 


EQU 


PAR 


n n n i gc 
UU U 1 O O 


C 


DNAMP 


EQU 


PAR+1 


n n n i o n 
UUUlo / 


C 


PATH 


EQU 


PAR+1 


n n n i o o 
UUUloo 


c 


REFNUM 


EQU 


PAR+1 


n n n t on 

uuuioy 


c 


ISNEWL 


EQU 


PAR+2 


n n n i n n 

uuui yu 


c 


OUTEOF 


EQU 


PAR+2 


n n n i n i 

uuuiyi 


c 


BASE 


EQU 


PAR+2 


n n n i no 

uuui yz 


c 


MRKPTR 


EQU 


PAR+2 


n n n i no 

uuui yj 


c 


OUTBUF 


EQU 


PAR+2 


n n n i c\ a 

uuui y4 


c 


NWPATH 


EQU 


PAR+3 


uu ui yo 


c 


FILIST 


EQU 


PAR+3 


n n n i c\r 

uuui y& 


c 


NEWL 


EQU 


PAR+3 


n n n i m 

uuuiy / 


c 


OUTVOL 


EQU 


PAR+3 


n n n i no 

uu u i y 


c 


OUTREF 


EQU 


PAR+3 


n n n i n n 

uuui yy 


c 


XL I ST 


EQU 


PAR+3 


ri r\ r\ ^> r\ r\ 
UUUzUU 


c 


MAXPTH 


EQU 


PAR+3 


n n n o n i 
UUUzUl 


c 


MARK 


EQU 


PAR+3 


n n n o n o 
UUUzUz 


c 


NEWEOF 


EQU 


PAR+3 


n n n o n o 
UUUzUo 


c 


BYTES 


EQU 


PAR+4 


n n n o n yi 
UUUzU4 


c 


FILSTLN 


EQU 


PAR+5 


n n n o n c 
UUUzUo 


c 


OUTBLK 


EQU 


PAR+5 


n n n o n r 
UUUzU6 


c 


OPLIST 


EQU 


PAR+5 


UUUzU / 


c 


XLEN 


EQU 


PAR+5 


n n n o n o 
UU Uz U O 


c 


FILID 


EQU 


PAR+6 


n n n o n n 

uu uz u y 


c 


OUTCNT 


EQU 


PAR+6 


n n n o i n 

UU UZ 1 u 


c 


OPLSTLN 


EQU 


PAR+7 


n n n o i i 
UU Uz 1 1 


c 


AUXID 


EQU 


PAR+7 


n n n o i o 
UUUzlz 


c 


STOR 


EQU 


PAR+9 


nnnoi o 
UU Uz; lo 


c 


EOFLL 


EQU 


PAR+$A 


UU Uz 14 


c 


EOFLH 


EQU 


PAR+$B 


nnnoi c 
UUUzlo 


c 


EOFHL 


EQU 


PAR+$C 


nnnoi /r 
UU Uz 1 D 


DEBUPTR 


EQU 


Tl 7\ ID J_ t 

FAK+PD 


nnnoi "~i 
UUUz!l / 


c 


EOFHH 


EQU 


PAR+$D 


nnnoi o 
UUUzlo 


* 


C. SPARE EQU 


PAR+$E 




nnnoi o 
UU Uz; i y 


* 








n n n o o n 
UU Uz;Z U 


DEVICE 


EQU 


$C0 


n n n o o i 

UUUzzl 


DHPCMD 


EQU 


DEVICE 


n n n o o o 
UUUzzz 


UNITNUM 


EQU 


DEVICE+1 


n n n o o o 


DSTATREQ 


EQU 


DEVICE+2 


r\ n n 1 1 n 
UU UZZ4 


DBUFPL 


EQU 


DEVICE+2 


n n n 1 1 c 
UU Uzzo 


DBUFPH 


EQU 


DBUFPL+1 


n n n 1 1 r 

UU Uzz D 


DSTATBFL 


EQU 


DEVICE+3 


000227 


DSTATBFH 


EQU 


DSTATBFL+1 


000228 


RQCNTL 


EQU 


DEVICE+4 


000229 


RQCNTH 


EQU 


RQCNTL+1 


000230 


BLOKNML 


EQU 


DEVICE+6 


000231 


BLOKNMH 


EQU 


BLOKNML+1 


000232 


BRDPTR 


EQU 


DEVICE+8 


000233 


* 








000234 


DVNAMP 


EQU 


DEVICE+1 


000235 


DVDNUM 


EQU 


DEVICE+3 


000236 


* 









$8X IF VOLUME SWAPPED; $00 IF UNSWAPPED WHERE X=LOW ORDER BYTE OF VCB 



; FILE REFERENCE NUMBER (POSITION SENSITIVE) 

; DEVICE (NUMBER) ON WHICH FILE RESIDES 
S DIRECTORY HEADER 
S DIRECTORY 

ENTRY NUMBER WITHIN DIRECTORY BLOCK 
STORAGE TYPE - SEED, SAPLING, TREE, ETC. 
STATUS - INDEX/DATA/EOF/USAGE/TYPE MODIFIED. 
ATTRIBUTES - READ/WRITE ENABLE, NEWLINE ENABLE. 
NEW LINE TERMINATOR (ALL 8 BITS SIGNIFICANT) . 
BUFFER NUMBER 
FIRST BLOCK OF FILE 

BLOCK ADDRESS OF INDEX (0 IF NO INDEX) 
BLOCK ADDRESS OF DATA 
CURRENT FILE MARKER. 
LOGICAL END OF FILE. 

ACTUAL NUMBER OF BLOCKS ALLOCATED TO THIS FILE. 

$8N = SWAPPED, $00 = UNSWAPPED VOLUME ("N" = VCB ENTRY NUMBER) 
LEVEL AT WHICH THIS FILE WAS OPENED 
FCB MARKED AS MODIFIED 



NOTE SAME AS BELOW 



TO PASS BACK BUSY, WRITE PROTECT, READ PROTECT. 



(AND 9) 



USED FOR 'VOLUME' TO CALL 

' GET . DNUM ' IN DEVICE MANAGER. 
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000237 


SISBPH 


EQU 


S I STER+DBUFPH 


000238 


SISDSTAT 


EQU 


S I STER+DSTATBFH 


000239 


SSBRDPH 


EQU 


SISTER+BRDPTR+1 


000240 








000241 




PAGE 




000242 








000243 


* ZERO PAGE 


TEMPORARIES 




000244 








000245 


Z TEMPS 


EQU 


SB0 


000246 


PATHNML 


EQU 


ZTEMPS 


000247 


PATHNMH 


EQU 


PATHNML+1 


000248 


USRBUF 


EQU 


ZTEMPS 


000249 


TPATH 


EQU 


ZTEMPS+2 


000250 


WRKPATH 


EQU 


ZTEMPS+4 


000251 


TINDX 


EQU 


ZTEMPS+2 


000252 


DRBUFPL 


EQU 


ZTEMPS+4 


000253 


DRBUFPH 


EQU 


DRBUFPL+1 


000254 


VCBPTR 


EQU 


ZTEMPS+6 


000255 


BMADR 


EQU 


ZTEMPS+8 


000256 


FCBPTR 


EQU 


ZTEMPS+$A 


000257 


DATPTR 


EQU 


ZTEMPS+$C 


000258 


POSPTR 


EQU 


ZTEMPS+$E 


000259 








000260 


MAXTEMPS 


EQU 


$F 


000261 


SISTEMPS 


EQU 


SISTER+ZTEMPS 


000262 


SSTIDXH 


EQU 


SISTER+TINDX+1 


000263 


SISPATH 


EQU 


S I STER+C . PATH+ 1 


000264 


SSNWPATH 


EQU 


SISTER+C .NWPATH+1 


000265 


SISUSRBF 


EQU 


S I STER+USRBUF+ 1 


000266 


SISOUTBF 


EQU 


SISTER+C . OUTBUF+1 


000267 


SISTPATH 


EQU 


SISTER+TPATH+1 


000268 


SISBMADR 


EQU 


SISTER+BMADR+1 


000269 


SISFCBP 


EQU 


SISTER+FCBPTR+1 


000270 


SISDATP 


EQU 


SISTER+DATPTR+1 


000271 


SISPOSP 


EQU 


SISTER+POSPTR+1 


000272 








000273 








000274 


* ADDRESSES 






000275 








r\ n r\ o ~i r 

000276 


PATHBUF 


EQU 


$1000 


000277 


VCB 


EQU 


$1100 


000278 


GBUF 


EQU 


$1200 


000279 








000280 


* INITIALIZATION EQUATES 




000281 








000282 


BFMFCB1 


EQU 


$1C 


000283 


BFMFCB2 


EQU 


$1D 


000284 


BMAPAGE 


EQU 


<$B800 


000285 


BMBPAGE 


EQU 


<$BAO0 


000286 


FCBZPP 


EQU 


FCBPTR 


000287 








r\ n n o o o 

000288 


* 






000289 


* 






000290 




PAGE 




000291 




DSECT 




000292 




ORG 


$0 


000293 


DATBLKL 


DS 


1 


000294 


DATBLKH 


DS 


1 


000295 


IDXADRL 


DS 


1 


000296 


IDXADRH 


DS 


1 


000297 


REQL 


DS 


1 


000298 


REQH 


DS 


1 


000299 


INDXBLK 


DS 


1 


000300 


LEVELS 


DS 


1 


000301 


TOTENT 


DS 


1 


000302 


ENTCNTL 


DS 


1 


000303 


ENTCNTH 


DS 


1 


000304 


CNTENT 


DS 


1 


000305 


NOFREE 


DS 


1 


000306 


BMCNT 


DS 


1 


000307 


SAPTR 


DS 


1 


000308 


TREPTR 


DS 


1 


000309 


TLINK 


DS 


2 


000310 


FLINK 


DS 


2 


000311 


PATHCNT 


DS 


1 


000312 


PFIXPTR 


DS 


2 


000313 


BMPTR 


DS 


1 


000314 


BASVAL 


DS 


1 


000315 


HALF 


DS 


1 


000316 








000317 


* 







NOTE : THIS IS $100 BYTES LONG. 
THRU $13FF 



FCB PAGE 1 ADDR 
FCB PAGE 2 ADDR 
BIT MAP A ADDR 
BIT MAP B ADDR 



(THE FOLLOWING DO NOT NEED TO BE ON ZERO PAGE. 7/16/80 JRH.) 



DISK ADDRESS OF INDEX BLOCK 
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000318 




PAGE 








000319 












000320 


* BIT MAP INFO 


TABLES (A 


& 


B) 




000321 












000322 


BMTABSZ 


EQU 




$6 




000323 


BMTAB 


DS 




1 




000324 


BMBUFBNK 


DS 




1 




000325 


BMASTAT 


DS 




1 




000326 


BMADEV 


DS 




1 




000327 


BMAMADR 


DS 




1 




000328 


BMADADR 


DS 




2 




000329 


BMACMAP 


DS 




1 


SIMILAR TO VCBCMAP 


000330 


BMBSTAT 


DS 




1 




000331 


BMBDEV 


DS 




1 




r\ n r\ o ^ o 

000332 


BMBMADR 


DS 




1 




r\ n r\ o ^ o 

000333 




DS 




2 


BMBDADR 


000334 




DS 




1 


BMBCMAP 


000335 












000336 


FCBADDRH 


DS 




1 


FILE CONTROL BLOCK'S BUFFER ADDRESS. 


000337 


FCBANKNM 


DS 




1 


AND BANK (SISTER PAGE) BYTE. 


000338 


TPOSLL 


DS 




1 




000339 


TPOSLH 


DS 




1 




000340 


TPOSHI 


DS 




1 




000341 


RWREQL 


DS 




1 




000342 


RWREQH 


DS 




1 




000343 


BULKCNT 


DS 




1 




000344 


NLCHAR 


DS 




1 




000345 


NPATHDEV 


DS 




3 


FOR NEW PATHNAME DEVICE AND DIRECTORY HEADER ADDRESS 


000346 


IOACCESS 


DS 




1 


USED TO DETERMINE IF A CALL HAS BEEN MADE TO THE DISK DEVICE 


000347 


DEVNUM 


DS 




1 


CURRENT DEVICE TO BE ACCESSED. 


000348 


TOTDEVS 


DS 




1 


USED FOR ACCESSING DRIVES IN NUMERIC ORDER 


000349 


CMDTEMP 


DS 




1 


USED FOR TESTING REFNUM, TIME, AND DSKSWTCH (PRE) PROCESSING. 


000350 


DATELO 


DS 




1 


DATE AND TIME MUST RESIDE ON ZERO PAGE. 


000351 


DATEHI 


DS 




1 




000352 


TIMELO 


DS 




1 




000353 


TIMEHI 


DS 




1 




000354 


* 










000355 


DUPLFLAG 


DS 




1 


USED FOR DIFFERENCE BETWEEN VNFERR AND DUPVOL BY SYNPATH 


000356 


ZPGTEMP 


DS 




1 


A ONE-BYTE UNSTABLE TEMPORARY 


000357 


VCBENTRY 


DS 




1 


POINTER TO CURRENT VCB ENTRY 


000358 


* 










000359 




DEND 








000360 


* 










000361 




CHN 




PATH, 4, 1 




000362 












000363 


*************** 






*********************************************** 


000364 


* END OF APPLE 


/// SOS 1. 


3 


SOURCE CODE FILE: EQUATES 


000365 


************************************************************************* 


000366 













End. of File -- Lines: 366 Characters: 13607 
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FILE : "SOS .FEB01 . 1982 .TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 



************************************************** 

* APPLE /// SOS 1.3 SOURCE CODE FILE: FEB01.1982 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SL4 


DR1 


ASM 


SOSLDR.SRCSOSLDR.OBJ, 6 


1 


SL4 


DR1 


ASM 


INIT.SRC, INIT.OBJ, 6, 1 




SL4 


DR1 


ASM 


SYSGLOB . SRC, SYSGLOB . OBJ 


6,1 


SL4 


DR1 


ASM 


OPRMSG . SRC , OPRMSG . OBJ, 6 


1 


SL4 


DR1 


ASM 


BFM. INIT2 . SRC, BFM. INIT2 


OBJ, 6, 1 


SL4 


DR1 


ASM 


IPL. SRC1, IPL.OBJ, 6, 1 




SL4 


DR1 


ASM 


UMGR.SRC,UMGR.OBJ, 6, 1 




SL4 


DR2 


ASM 


DISK3.SRC, DISK3 .OBJ, 6, 1 




SL4 


DR2 


ASM 


SYSERR. SRC, SYSERR.OBJ, 6 


1 


SL4 


DR2 


ASM 


SCMGR.SRC, SCMGR.OBJ, 6, 1 




SL4 


DR2 


ASM 


FMGR.SRC, FMGR.OBJ, 6, 1 




SL4 


DR2 


ASM 


CFMGR.SRC, CFMGR.OBJ, 6, 1 




SL4 


DR2 


ASM 


DEVMGR . SRC , DEVMGR . OB J , 6 


1 


SL4 


DR2 


ASM 


BUFMGR . SRC , BUFMGR . OB J , 6 


1 


SL4 


DR2 


ASM 


MEMMGR . A . SRC , MEMMGR . OBJ 


6,1 


END 











****************** 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FEB01.1982 

************************************************************************* 



End of File 



Lines: 25 Characters: 1004 
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FILE : " SOS. FMGR. SRC. TEXT" 



000001 


******************************************************************** 


r\ n n r\ n o 

000002 


* APPLE /// SOS 


1.3 SOURCE CODE FILE: FMGR. SRC 


000003 








000004 


* ASSEMBLER: APPLE ] [ 65 


02 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 








000006 




SBTL 


"SOS 1.1 FILE MANAGER" 


00000 / 




REL 




000008 




INCLUDE 


SOSORG, 6,1,254 


000009 




ORG 


ORGFMGR 


000010 


ZZORG 


EQU 


* 


000011 




MSB 


OFF 


000012 




REP 


60 


000013 


* COPYRIGHT (C) 


APPLE COMPUTER INC. 1980 


000014 


* 


ALL 


RIGHTS RESERVED 


000015 




REP 


60 


000016 


* 






000017 


* FILE MANAGER 


(VERSION 


=1.10 ) 


000018 


* 


(DATE 


= 8/04/81) 


000019 


* 






r\ n n r\ n n 

000020 


* THIS MODULE IS ENTERED 


FROM THE SYSTEM CALL MANAGER, AND 


000021 


* IS RESPONSIBLE FOR SWITCHING TO EITHER THE BLOCK FILE 


000022 


* MANAGER, OR THE CHARACTER FILE MANAGER . 


000023 








000024 




REP 


60 


r\ n n r\ o it 

000025 








r\ n n r\ n ^ 

000026 




ENTRY 


FMGR 


r\ n n r\ n "~7 

000027 




ENTRY 


LEVEL 


r\ r\ r\ r\ *~> n 

000028 








r\ n n r\ n rs 

000029 




tiA 1 KW 


b t MGK 


000030 




EXTRN 


CFMGR 


000031 




EXTRN 


SYSERR 


000032 




EXTRN 


SERR 


000033 




EXTRN 


BADPATH 


r\ n n r\ o /i 

000034 




EXTRN 


FNFERR 


r\ n n r\ o it 

000035 




EXTRN 


LVLERR 


000036 








000037 


F . TPARMX 


EQU 


$A0 ; LOG OF FILE SYSTEM 


000038 


OPEN 


EQU 


$8 


000039 


CLOSE 


EQU 


$c 


000040 


SETLEVEL 


EQU 


$12 


000041 


GETLEVEL 


EQU 


$13 


000042 


F . REQCODE 


EQU 


F. TPARMX 


000043 


F . LEVEL 


EQU 


F.TPARMX+$1 


000044 


PATHNAME 


EQU 


F.TPARMX+$1 


000045 


REFNUM 


EQU 


F.TPARMX+$1 


000046 


PERIOD 


EQU 


$2E 


000047 


LEVEL 


DFB 


$1 


000048 




PAGE 




000049 




REP 


60 


000050 


* 






000051 


* FILE MANAGER 






000052 


* 






000053 




REP 


60 


000054 


FMGR 


EQU 


* 


000055 


* 






000056 




LDA 


F . REQCODE 


000057 




CMP 


#OPEN 


000058 




BCC 


FMGR010 


000059 




BEQ 


FMGR020 


000060 




CMP 


♦CLOSE 


OUOOfel 




BCC 


FMGR030 


000062 




BEQ 


FMGR040 


000063 




CMP 


#SETLEVEL 


000064 




BEQ 


SLEVEL 


000065 




CMP 


#GETLEVEL 


000066 




BEQ 


GLEVEL 


000067 


* 






000068 


FMGR010 


JMP 


BFMGR ; EXIT 


000069 


* 






000070 


FMGR020 


LDY 


#1 


000071 




LDA 


( PATHNAME ) , Y 


000072 




CMP 


#PERIOD 


000073 




BNE 


FMGR010 


000074 




JSR 


CFMGR 


000075 




BCC 


FMGR024 


000076 




LDA 


SERR 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 



FMGR024 
FMGR026 



FMGRO 3 
FMGR031 



FMGRO 40 



ZZEND 
ZZLEN 



CMP 
BEQ 
RTS 

LDA 
STA 
JMP 

LDA 
BPL 
JMP 

LDA 
BNE 
JSR 
JMP 

LDA 
BEQ 
CMP 
BCS 
STA 
RTS 
LDA 
JSR 

LDY 
LDA 
STA 
RTS 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



#FNFERR 
FMGRO 2 6 



#0 

SERR 
BFMGR 

REFNUM 
FMGRO 10 
CFMGR 

REFNUM 
FMGRO 31 
BFMGR 
CFMGR 

F . LEVEL 
LVL . ERR 

#4 

LVL . ERR 

LEVEL 

ILVLERR 
SYSERR 

#0 

LEVEL 

(F. LEVEL) , Y 



ON 

ZZEND-ZZORG 
ZZLEN-LENFMGR 
2, "SOSORG 



; EXIT 



; EXIT 



; CLOSE (0) 
; EXIT 



FILE IS INCORRECT FOR FMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FMGR. SRC 

************************************************************************* 



End of File 



Lines: 119 Characters: 2884 
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FILE : "SOS. FNDFIL. TEXT" 



000001 


******************************************************** 


000002 


* a PPT TT / / / 
f-iJr r J_iHj III 


OUO 1.3 OUUK^t 


CODE FILE: FNDFIL 




000003 








000004 


Ao bill Flo LiiLiK I 


A DDT 17 i r ccm 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 










000006 










000007 


* 








000008 


* 








000009 


r J-lNJjr _L _l_irLi 




LOOKFILE 


SEE IF FILE EXISTS 


000010 






NOFIND 


BRANCH IF AN ERROR WAS ENCOUNTERED 


000011 


1X1U V rj IN 1 1\ 1 




H . ENTLN 


MOVE ENTIRE ENTRY INFO TO A SAFE AREA 


000012 


1X1U V rj l\l ± _L 




(DRBUFPL) , Y 




000013 




STA 


DFIL+D . STOR, Y 




000014 




DEY 






000015 






MOVENT 1 




000016 




LDA 


#0 


TO INDICATE ALL IS WELL 


000017 


Hfi TT 1 T M n 
PJUr. _L1MJJ 






RETURN CONDITION CODES. 


000018 










000019 


* 








000020 


* 








000021 


J-iUvTvl: _L _l_irLi 




PREPROOT 


FIND VOLUME AND SET UP OTHER BORING STUFF 


000022 






FNDERR 


PASS BACK ANY ERROR ENCOUNTERED 


000023 






#0 


TEST TO SEE IF ONLY ROOT WAS SPECIFIED. 


000024 




LDA 


(PATHNML) , Y 




000025 






LOOKFIL0 


BRANCH IF MORE THAN ROOT. 


000026 




LDA 


#GBUF/256 


OTHERWISE, REPORT A BADPATH ERROR 


000027 






DRBUFPH 


(BUT FIRST CREATE A PHANTOM ENTRY FOR OPEN) 


000028 




LDA 


#4 




000029 






DRBUFPL 




000030 






#D. AUXID 


FIRST MOVE IN ID, AND DATE STUFF. 


000031 






(DRBUFPL) , Y 




000032 






DFIL, Y 




000033 










000034 




r-pv 


#D.CREDT-1 




000035 






PHANTM1 




000036 


JrnLf-iLN 11/1 Z 


LDA 


ROOTSTUF-D . FILID, Y 




000037 






DFIL, Y 




000038 










000039 






#D. FILID-1 




000040 




BNE 


PHANTM2 




000041 




LDA 


#DIRTYP*$10 


FAKE DIRECTORY FILE 


000042 






DFIL+D . STOR 




000043 




LDA 


fBADPATH 


(CARRY IS SET) 


000044 










000045 


* 








000046 






0,2,0,4 




000047 






0,0,8,0 




000048 


* 








000049 


t nnPTTT t n 

J_iUVJr\r _LJ_iU 


LDA 


#0 


RESET FREE ENTRY INDICATOR 


000050 




STA 


NOFREE 




000051 








INDICATE THAT THE DIRECTORY TO BE SEARCHED HAS 


000052 


t nnprTT t i 

LUUtM! _L J_i 1 


LDA 


#0 


RESET ENTRY COUNTER 


000053 






TOTENT 




000054 






LOOKNAM 


LOOK FOR NAME POINTED TO BY ' PATHNML ' 


000055 






NAMFOJMP 


BRANCH IF NAME WAS FOUND. 


000056 




LDA 


ENTCNTL 


HAVE WE LOOKED AT ALL OF THE 


000057 






TOTENT 


ENTRIES IN THIS DIRECTORY? 


000058 






DCRENTH 


MAYBE, CHECK HI COUNT. 


000059 




BNE 


LOOKFIL2 


NO, READ NEXT DIRECTORY BLOCK 


000060 




CMP 


ENTCNTH 


HAS THE LAST ENTRY BEEN LOOKED AT (ACC=0) 


000061 




BEQ 


ERRFNF 


YES, GIVE ' FILE NOT FOUND ' ERROR. 


000062 




BNE 


LOOKFIL2 


BRANCH ALWAYS. 


000063 


DCRENTH 


DEC 


ENTCNTH 


SHOULD BE AT LEAST 1 


000064 




BPL 


LOOKFIL2 


(THIS SHOULD BE BRANCH ALWAYS...) 


000065 


ERRDIR 


LDA 


#DIRERR 


REPORT DIRECTORY MESSED UP. 


000066 


FNDERR 


SEC 




INDICATE ERROR HAS BEEN ENCOUNTERED. 


000067 




RTS 






000068 


NAMFOJMP 


JMP 


NAMFOUND 


AVOID BRANCH OUT OF RANGE 


000069 










000070 




PAGE 






000071 


L00KFIL2 


STA 


ENTCNTL 


KEEP RUNNING COUNT 


000072 




LDA 


#GBUF/256 


RESET INDIRECT POINTER 


000073 




STA 


DRBUFPH 




000074 




LDA 


GBUF+2 


GET LINK TO NEXT DIRECTORY BLOCK 


000075 




BNE 


NXTDIR0 


(IF THERE IS ONE) 


000076 




CMP 


GBUF+3 


ARE BOTH ZERO, I.E. NO LINK? 
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000077 






BEQ 


ERRDIR 


; IF SO, THEN NOT ALL ENTRIES WERE ACCOUNTED 


000078 


NXTDIRO 


STA 


BLOKNML 




000079 






LDA 


GBUF+3 




000080 






STA 


BLOKNMH 




000081 






JSR 


RDGBUF 


; GO READ THE NEXT LINKED DIRECTORY IN. 


000082 






BCC 


LOOKFIL1 


; BRANCH IF NO ERROR. 


000083 






RTS 




; RETURN ERROR (IN ACCUMULATOR) . 


000084 


TELFREEX 


JMP 


TELFREE 




000085 


* 










000086 


FNFOX 


JMP 


FNF0 


; AVOID BRANCH OUT OF RANGE 


000087 


* 










000088 


CFLAG 


DS 


1 


; AM I CREATING? 


000089 


TTSAVE 


DS 


2 


; CURRENT BLOCK ADDR 


000090 


BLOKSAVE 


DS 


2 


; PARENT DIR ADDR 


000091 


* 










000092 


ERRFNF 


LDA 


NOFREE 


; WAS ANY FREE ENTRY FOUND? 


000093 






BNE 


FNFOX 




000094 






LDA 


GBUF+2 


; TEST LINK 


000095 






BNE 


TELFREEX 




000096 






CMP 


GBUF+3 


; IF BOTH ARE ZERO, THEN GIVE UP 


000097 






BNE 


TELFREEX 


; BRANCH IF NOT LAST DIR BLOCK 


r\ n n r\ r\ ci 

000098 






LDA 


CFLAG 


; DOING A CREATE? 


000099 






BEQ 


FNFOX 


; NO, SIMPLY REPORT NOT FOUND 


000100 












000101 




EXTEND THE 


DIRECTORY BY 


A BLOCK 




000102 












000103 






LDA 


BLOKSAVE 


; BUT NOT 


000104 






ORA 


BLOKSAVE+1 


; IF A ROOT DIRECTORY! 


000105 






BEQ 


FNFOX 


; FORU BLOCKS HARD CODED 


000106 






LDA 


TTLINK 


; FETCH CURRENT DIRECTORY 


000107 






STA 


TLINK 


; ADDR (GBUF) 


000108 






LDA 


TTLINK+1 


; AND ALLLOCATE A NEW 


000109 






STA 


TLINK+1 


; BY LINKING TO CURRENT 


000110 






JSR 


DIRWRT 




000111 






BCS 


FNFO 


; RATS! NO SPACE SAY "DIRFULL" 


000112 












000113 




SAVE CURRENT BLOCK ADDR 






000114 












000115 






LDA 


TTLINK 




000116 






STA 


TTSAVE 




000117 






LDA 


TTLINK+1 




000118 






STA 


TTSAVE +1 




000119 












000120 




FETCH DESCENDENT 






000121 












000122 






LDA 


GBUF+2 




000123 






STA 


BLOKNML 




000124 






LDA 


GBUF+3 




000125 






STA 


BLOKNMH 




000126 






JSR 


ZERGBUF 


; INIT THE NEW DIR BLOCK 


000127 












000128 




AND INSERT 


BACK POINTER 






000129 




TO "CURREN1 


BLOCK" 






000130 












000131 






LDA 


TTSAVE 




000132 






STA 


GBUF 




000133 






LDA 


TTSAVE +1 




000134 






STA 


GBUF+1 




000135 






JSR 


WRTGBUF 




000136 






BCS 


ERTS 




000137 


* 










000138 




UPDATE DIR' 


S HEADER IN 


D ARENT 




000139 


* 










000140 






LDA 


BLOKSAVE 




000141 






STA 


BLOKNML 


; PREPARE TO READ PARENT 


000142 






LDX 


BLOKSAVE+1 




000143 






STX 


BLOKNMH 




000144 






JSR 


RDGBUF 


; FETCH PARENT 


000145 






LDY 


#D. USAGE 


; BUMP BLOCKS USED BY HEADER 


000146 






LDA 


(DEBUPTR) , Y 




000147 






SEC 






000148 






ADC 


#0 


; BY JUST ONE BLOCK 


000149 






STA 


(DEBUPTR) , Y 




000150 






I NY 






000151 






LDA 


(DEBUPTR) , Y 


; TWO BYTE BLOCKS USED 


000152 






ADC 


#0 




000153 






STA 


(DEBUPTR) , Y 




000154 






LDY 


#D.EOF+l 


; INCREASE EOF BY $200 


000155 






LDA 


(DEBUPTR) , Y 




000156 






CLC 






000157 






ADC 


#2 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



ERTS 
FNF1 



*NOW CHANGE 



ERRCOMP 

NONAME 

FNDERR1 



MOVHEDO 
MOVHED1 



STA 
I NY 
LDA 
ADC 
STA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
JMP 

STA 
LDA 
STA 
LDA 
STA 
STA 
LDY 
LDA 
TAY 
I NY 
LDA 
SEC 
BEQ 
LDA 
RTS 
LDA 
RTS 
PAGE 

LDA 
SEC 
ADC 
TAY 
CLC 
LDA 
BEQ 

THE PATHNAME 
STY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
AND 
CMP 
BNE 
LDY 
LDA 
STA 
I NY 
STA 
LDA 
STA 
STA 
JSR 
BCS 
LDA 
STA 
LDA 
STA 
LDA 
BEQ 
LDA 
EQU 
SEC 
RTS 
JSR 
JMP 

LDX 
LDA 
STA 
DEX 



(DEBUPTR) ,Y 

(DEBUPTR) , Y 
#0 

(DEBUPTR) , Y 
WRTGBUF 
TTSAVE+1 
BLOKNMH 
TTSAVE 
BLOKNML 
RDGBUF 
ERRFNF 

D . ENTBLK 
GBUF+3 
D.ENTBLK+1 
#1 

D . ENTNUM 

NOFREE 

#0 

(PATHNML) , Y 



(PATHNML) , Y 



FNF1 

# PATHNOTFND 



tFNFERR 



(PATHNML) , Y 



PATHBUF, Y 
FILFOUND 
POINTER TO POINT AT 
PATHNML 
DRBUFPL 
DEBUPTR 
DRBUFPH 
DEBUPTR+1 
BLOKNML 
BLOKSAVE 
BLOKNMH 
BLOKSAVE+1 
tD.STOR 
(DRBUFPL) , Y 
#$F0 

#DIRTYP*16 
ERRPATH1 
#D. FRST 
(DRBUFPL) , Y 

BLOKNML 

D . HEAD 
(DRBUFPL) , Y 
BLOKNMH 
D.HEAD+1 
RDGBUF 
FNDERR1 
GBUF+HCENT+4 
ENTCNTL 
GBUF+HCENT+5 
ENTCNTH 
GBUF+HCMP+4 
MOVHEAD 
tCPTERR 



MOVHEDO 
LOOKFIL0 

#$A 

GBUF+HCRDT+4,X 
H . CREDT, X 



REWRITE PARENT DIR BLOCK 
REFETCH CURRENT DIR BLOCK 



BACK FROM THE SHADOWS AGAIN 

VOILA! WE HAVE EXTENDED THE DIRECTORY! 



ASSUME FIRST ENTRY OF NEXT BLOCK 
IS FREE FOR USE. 



MARK D. ENTNUM AS VALID (FOR CREATE) 
TEST FOR 'FILE NOT FOUND' VERSUS 'PATH NOT FOUND' 



IF NON-ZERO THEN 'PATH NOT FOUND' 
IN EITHER CASE, INDICATE ERROR. 



REPORT NO SUCH PATH. 
REPORT FILE NOT FOUND. 



; (Y=0) 

; TEST FOR LAST NAME IN PATH 

; IF ZERO, THEN THAT WAS LAST NAME 

; TO INDICATE SUCCESS 



THE NEXT NAME IN THE PATH 



; SAVE PARENTS 
; ENTRY POINTER 



IN CASE ENTRY ON PAGE 2 
ADDRESS (DIR EXTEND) 



BE SURE THIS IS A DIRECTORY ENTRY 
HIGH NIBBLE WILL TELL 

IS IT A SUB-DIRECTORY? 
REPORT THE USER'S MISTAKE 

GET ADDRESS OF FIRST SUB-DIRECTORY BLOCK 

(NO CHECKING IS DONE HERE FOR A VALID 
BLOCK NUMBER. . . ) 
SAVE AS FILE'S HEADER BLOCK TOO. 



READ SUB-DIRECTORY INTO GBUF 
RETURN IMMEDIATELY ANY ERROR ENCOUNTERED. 
GET THE NUMBER OF FILES 
CONTAINED IN THIS DIRECTORY 



TEST BACKWARD COMPATIBILITY 

TELL THEM THIS DIRECTORY IS NOT COMPATABLE 



; MOVE INFO ABOUT THIS DIRECTORY 
; DO NEXT LOCAL PATHNAME 



; MOVE INFO ABOUT THIS DIRECTORY 
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000239 




BPL 


MOVHED1 




000240 




RTS 






000241 










000242 




PAGE 






000243 










000244 










000245 


FILFOUND 


EQU 






000246 


ENTADR 


LDA 


H . MAXENT 


FIGURE OUT WHICH IS ENTRY NUMBER THIS IS. 


000247 




SEC 






000248 




SBC 


CNTENT 


MAX ENTRIES - COUNT ENTRIES + 1 = ENTRY NUMBER 


000249 




ADC 


#0 


(CARRY IS /WAS SET) 


000250 




STA 


D . ENTNUM 




000251 




LDA 


BLOKNML 




000252 




STA 


D . ENTBLK 




000253 




LDA 


BLOKNMH 


AND INDICATE BLOCK NUMBER OF THIS DIRECTORY. 


000254 




STA 


D . ENTBLK+1 




000255 




CLC 






000256 




RTS 






000257 










000258 


LOOKNAM 


LDA 


H . MAXENT 


RESET COUNT OF FILES PER BLOCK 


000259 




STA 


CNTENT 




000260 




LDA 


#GBUF/256 




000261 




STA 


DRBUFPH 




000262 




LDA 


#4 




0002 63 


LOKNAM1 


STA 


DRBUFPL 


RESET INDIRECT POINTER TO GBUF 


0002 64 




BCS 


LOKNAM2 


BRANCH IF THIS BLOCK CONTAINS A HEADER 


000265 




LDY 


#D. STOR 




000266 




LDA 


(DRBUFPL) , Y 


GET LENGTH OF NAME IN DIRECTORY 


000267 




BNE 


ISNAME 


BRANCH IF THERE IS A NAME. 


000268 




LDA 


NOFREE 


TEST TO SEE IF A FREE ENTRY HAS BEEN DECLARED. 


000269 




BNE 


LOKNAM2 


YES BUMP TO NEXT ENTRY 


000270 




JSR 


ENTADR 


SET ADDRESS FOR CURRENT ENTRY 


000271 




INC 


NOFREE 


INDICATE A FREE SPOT HAS BEEN FOUND 


000272 




BNE 


LOKNAM2 


BRANCH ALWAYS . 


000273 










000274 


IS NAME 


AND 


#$F 


STRIP TYPE (THIS IS CHECKED BY 'FILFOUND') 


000275 




INC 


TOTENT 


(BUMP COUNT OF VALID FILES FOUND) 


000276 




CMP 


(PATHNML) , Y 


ARE BOTH NAMES OF THE SAME LENGTH? 


000277 




BNE 


LOKNAM2 


NO, BUMP TO NEXT ENTRY 


000278 




TAY 






000279 


CMPNAME 


LDA 


(DRBUFPL) , Y 


COMPARE NAMES LETTER BY LETTER 


000280 




CMP 


(PATHNML) , Y 




000281 




BNE 


LOKNAM2 




000282 




DEY 




HAVE ALL LETTERS BEEN COMPARED? 


000283 




BNE 


CMPNAME 


NO, CONTINUE . . 


000284 




CLC 




BY GOLLY, WE GOT US A MATCH! 


000285 




RTS 






000286 










000287 


LOKNAM2 


DEC 


CNTENT 


HAVE WE CHECKED ALL POSSIBLE ENTRIES IN THIS BLOCK? 


000288 




BEQ 


NONAME 


YES, GIVE UP. 


000289 




LDA 


H . ENTLN 


ADD ENTRY LENGTH TO CURRENT POINTER 


r\ n n o r\ n 

0002 90 




CLC 






000291 




ADC 


DRBUFPL 




000292 




BCC 


LOKNAM1 


BRANCH IF WE'RE STILL IN THE FIRST PAGE. 


000293 




INC 


DRBUFPH 


LOOK ON SECOND PAGE 


000294 




CLC 




CARRY SHOULD ALWAYS BE CLEAR BEFORE LOOKING AT NEXT 


r\ n n o r\ c 

0002 95 




BCC 


LOKNAM1 


BRANCH ALWAYS . . . 


000296 




PAGE 






000297 










000298 










000299 


PREP ROOT 


JSR 


FINDVOL 


FIND CORRECT VOLUME AND DEVICE NUMBER 


000300 




BCC 


ROOT1 


BRANCH IF IT WAS FOUND. 


000301 


ROOT0 


JSR 


LOOKVOL 


OTHERWISE LOOK ON ALL DEVICES. 


000302 




BCS 


SRITZ 


CAN 1 T FIND IT . 


000303 


ROOT1 


LDA 


#0 


ZERO OUT DIRECTORY TEMPS 


000304 




LDY 


#42 


(DECIMAL) 


000305 


CLRDSP 


STA 


D . DEV, Y 




000306 




DEY 






r\ n n o n 

00030 / 




BPL 


CLRDSP 




r\ n n o n o 

000308 




LDY 


#VCBDEV 


SET UP DEVICE NUMBER 


000309 




LDA 


(VCBPTR) , Y 




000310 




STA 


DEVNUM 




000311 




STA 


D.DEV 


FOR FUTURE REFERENCE 


000312 




I NY 






000313 




LDA 


(VCBPTR) , Y 


GET CURRENT STATUS OF THIS VOLUME 


000314 




STA 


V. STATUS 




000315 




LDY 


#VCBROOT 


GET BLOCK ADDRESS OF ROOT DIRECTORY TOO. 


000316 




LDA 


(VCBPTR) , Y 




000317 




STA 


BLOKNML 




000318 




STA 


D . HEAD 


PRESERVE AS HEADER 


000319 




I NY 
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000320 




LDA 


(VCBPTR) , Y 




000321 




STA 


BLOKNMH 




r\ n n o n o 

000322 




STA 


D . HEAD+1 




r\ n n o n o 

000323 




JSR 


RDGBUF 


GO READ IN ROOT 


r\ n n o n /i 

000324 




BCC 


ROOT 2 


BRANCH IF NO ERROR 


r\ n n o n c 

000325 




PHA 




SAVE ERROR CODE 


r\ n n o n ^ 

000326 




LDY 


#VCBSTAT 


CHECK THIS BUGGER FOR AN OPEN FILE. 


000327 




LDA 


(VCBPTR) , Y 




000328 




ASL 


A 


(SHIFT OPEN STATUS INTO CARRY) 


r\ n n *d o o 
000329 




PLA 




GET ERROR CODE AGAIN 


r\ n n o o n 

000330 




BCS 


ROOTERR 


BRANCH IF ERROR NEEDS TO BE REPORTED 


000331 




BNE 


ROOT0 


OTHERWISE, LOOK ELSEWHERE (BRANCH ALWAYS) . 


000332 










r\ n n o ^ o 

000333 


ROOT 2 


JSR 


CHKROOT 


VERIFY ROOT NAME 


r\ n n o a 

000334 




BEQ 


ROOT 3 


BRANCH IF MATCHED. 


r\ n n o o c 

000335 




LDY 


#VCBSTAT 


TEST FOR OPEN FILES ON THIS VOLUME BEFORE 


r\ n n o ^ ^ 

000336 




LDA 


(VCBPTR) , Y 


LOOKING FOR IT ELSEWHERE. 


r\ n n o ^ ~7 

000337 




BPL 


ROOT0 




r\ n n o o o 

000338 




JSR 


USRREQ 


REQUEST USER MOUNT VOLUME 


r\ n n o o rs 

000339 




BCC 


R00T1 


USER SAID S/HE DID-- CHECK IT 


000340 




LDA 


#VNFERR 


REPORT VOLUME NOT FOUND ERR IF REFUSE TO INSERT 


r\ n n o /i t 

000341 


SRITZ 


RTS 






000342 










000343 




PAGE 






000344 


ROOT 3 


LDY 


#$F 


(NOTE: X CONTAINS THE LENGTH OF THE ROOT NAME) 


000345 


ROOT INFO 


LDA 


GBUF+HCRDT+3 , Y 


SAVE HEADER INFO . 


000346 




STA 


V . STATUS , Y 




000347 




DEY 






000348 




BNE 


ROOT INFO 


LOOP TIL ALL 15 BYTES MOVED 


000349 




LDA 


H . FCNT 




000350 




STA 


ENTCNTL 




000351 




LDA 


H . FCNT+1 




000352 




STA 


ENTCNTH 




000353 




TXA 




NOW THAT ROOT IS IDENTIFIED, ADJUST 


000354 




SEC 




PATH NAME POINTER TO NEXT NAME IN THE PATH 


000355 




ADC 


PATHNML 




000356 




STA 


PATHNML 




000357 




CLC 




INDICATE NO ERROR 


000358 


ROOTERR 


RTS 






000359 










r\ n n o r~ n 

000360 










r\ n n o r~ *\ 

000361 


CHKROOT 


LDY 


#0 


GET LENGTH OF NAME 


n n A n ^ o 

000362 




LDA 


(PATHNML) , Y 




000363 




TAY 






000364 




TAX 




SAVE IN X FOR LATTER ADJUSTMENT TO PATH POINTER 


000365 




EOR 


GBUF+4 




000366 




AND 


#$F 


DOES PATHNAME HAVE SAME LENGTH AS DIRECTORY NAME? 


r\ n n o r -i 

00036 / 




BNE 


NOTROOT 


BRANCH IF NOT 


r\ n n o r~ o 

000368 


CKR00T1 


LDA 


(PATHNML) , Y 


COMPARE CHARACTER BY CHARACTER 


000369 




CMP 


GBUF+4 , Y 




000370 




BNE 


NOTROOT 




000371 




DEY 






000372 




BNE 


CKR00T1 


LOOP UNTIL ALL CHARACTERS MATCH 


000373 


N0TR00T 


RTS 






000374 










000375 




PAGE 






r\ r\ r\ ~~i s~ 

000376 


FINDVOL 


LDA 


#VCB/256 


SEARCH VCB FOR VOLUME NAME 


000377 




STA 


VCBPTR+1 




000378 




LDA 


#0 




000379 




STA 


D . DEV 




r\ n n o o n 

000380 




STA 


VCBPTR 




000381 


FNDV0L1 


PHA 




SAVE LAST SEARCH POSITION 


000382 




TAX 






000383 




LDY 


#0 


(INDEX TO PATHNAME POINTER) 


000384 




LDA 


VCB, X 


GET LENGTH OF VOLUME NAME TO COMPARE 


000385 




BEQ 


NXTVCB 


BRANCH IF VCB ENTRY IS EMPTY 


r\ n n o o ^ 

000386 




CMP 


(PATHNML) , Y 


ARE NAMES OF SAME LENGTH? 


000387 




BNE 


NXTVCB 


NO, INDEX NEXT VCB 


000388 




CLC 




SCAN NAME BACKWARDS 


000389 




TAY 






000390 




TXA 






0U0391 




ADC 


VCB, X 




000392 




TAX 




NOW BOTH INDEXES POINT TO LAST CHARACTER OF THE NAMES 


000393 


VOLNAM 


LDA 


(PATHNML) , Y 




000394 




CMP 


VCB,X 




000395 




BNE 


NXTVCB 




000396 




DEX 






000397 




DEY 






000398 




BNE 


VOLNAM 


CHECK ALL CHARACTERS 


000399 




PLA 




SINCE A MATCH IS FOUND 


000400 




STA 


VCBPTR 


SET UP INDEX TO VCB ENTRY 



« Apple /// Computer » SOS 1.3 Source Code Listing • 98 of 255 




000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 



LOOKVOL 
LOOKVOL1 



ENTVCB2 



LOKVOL2 



TAX 
LDA 
BEQ 
JSR 
BCC 
LDA 
RTS 
CLC 
RTS 

PLA 
CLC 
ADC 
BCC 
RTS 
PAGE 



LDX 
LDA 
STA 
DEX 
BPL 
STA 
I NX 
I NX 
STX 
LDA 
CMP 
BEQ 
STA 
JSR 
BCC 
LDA 
TAX 
LDA 
BEQ 
TXA 
CLC 
ADC 
BCC 
LDA 
EQU 
TAX 
LDA 
BEQ 
TXA 
CLC 
ADC 
BCC 
RTS 

LDY 
LDA 
BNE 
LDA 
SEC 
RTS 
PAGE 

STX 
LDA 
LDX 
BEQ 
LDY 
LDA 
BMI 
LDY 
LDA 
TAX 
DEY 
LDA 
JSR 
BCC 
LDA 
TAY 
STA 
BEQ 

JSR 

BCS 



VCB+VCBSWAP,X 

FOUNDVOL 

SWAPIN 

FOUNDVOL 

#XIOERROR 



IVCBSIZE 
FNDVOL1 



#12 

BLKDLST, X 
SCRTCH,X 

LOOKVOL1 
TOTDEVS 



SCRTCH 

SCRTCH,X 

D.DEV 

NXTDEV 

DEVNUM 

DEWCB 

LOKVOL1 

#0 

VCB,X 
FREEVCB 



IVCBSIZE 

ENTVCB 

#0 



VCB+VCBSTAT,X 
FREEVCB 



IVCBSIZE 
ENTVCB2 



#0 

(VCBPTR) ,Y 

FOUNDVOL 

IDUPVOL 



VCBPTR 

#2 
#0 

GETROOT 
#VCBSTAT 

(VCBPTR) ,Y 

SNSWIT 

#VCBROOT+l 

(VCBPTR) ,Y 



(VCBPTR) , Y 
GETROT0 
LOKVOL2 

#0 

(VCBPTR) ,Y 
NXTDEV 

LOGVCB 
NXTDEV 



BRANCH IF 

VOLUME NOT SWAPPED 

IF USER REALLY WANTS IT, THEN BRING IN IF SWAPPED 
BRANCH IF SUCCESS 
USER REFUSES TO MOUNT 

INDICATE VOLUME FOUND 



GET CURRENT INDEX AGAIN. 
VCB ENTRY LENGTH. 

BRANCH IF THER IS ANOTHER TO CHECK 
RETURN WITH CARRY SET TO SHOW FAILURE. 



(1) COUNT+ (12) DEVICE LIST 
EXTRN 

MY CHANGEABLE COPY 
WORK BACKWARDS SO 

ENTRY ZERO IS TOTAL DEVICES LISTED 
MAKE XREG = ZERO 



DON'T LOOK AGAIN ON A DRIVE THAT HAS BEEN CHECKED 
CHECK FOR DEVICE ALREADY LOGGED IN A VCB 
(CARRY CLEAR IF IT'S THERE) 

FIND A FREE VCB TO LOG THIS GUY IN 
INDEX TO NEXT VCB ENTRY 

FOUND A FREE SPOT. 

NOW INDEX TO NEXT, AND KEEP LOOKIN 

(EACH VCB ENTRY IS 32 BYTES) 
BRANCH IF MORE TO FIND 

SEE IF WE CAN REPLACE A DEVICE 

VCB HAS FILES OPEN? 
NO, USE IT! 



SEARCH NEXT VCB ENTRY 

FAILED TO FIND A FREE VCB ENTRY 

MAKE SURE VOLUME WAS ACTUALLY LOGGED IN 

AH, MADE IT . . . 

WELL, NOT QUITE, THIS VOLUME CAN'T BE LOGGED 



NOW THIS IS THE POINTER TO A FREE VCB 
ROOT DIRECTORIES ALWAYS AT BLOCK 2 

BRANCH ALWAYS 

MAKE SURE NO FILES ARE ACTIVE ON 
THE VOLUME BEFORE LOGGING IT IN. 
BRANCH IF FILES ACTIVE 

GET ADDRESS OF ROOT DIRECTORY 

HIGH FIRST. 

THEN LOW. 



BRANCH IF SUCCESSFULLY READ. 
OTHERWISE, TAKE THIS DEVICE OUT OF VCB 



(VOLUME 'OFF LINE' ) 
BRANCH ALWAYS 



GO UPDATE VCB TO INCLUDE CURRENT VOLUME INFO 
IF NOT A SOS DISKETTE, SKIP TO NEXT DEVICE 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 



SNSWIT2 



SNSWIT3 



SNSWIT4 



SNSWIT5 
SNSWIT6 



DEWCB 
DVCB1 



DVCB2 



TSTDUPVOL 



JSR 
BEQ 

LDX 
CPX 
BCC 
LDA 
RTS 

EQU 
LDY 
LDA 
STA 
JSR 
LDA 
BEQ 
JSR 
BCC 
JSR 
BNE 
LDX 
JSR 
BCS 
JMP 
LDA 
BEQ 
TXA 
CLC 
ADC 
TAX 
BCC 
RTS 
LDA 
STA 
STX 
JSR 
BCS 
LDA 
BNE 
LDY 
LDA 
STA 
LDA 
JSR 
BCC 
LDA 
RTS 
LDY 
LDA 
STA 
JSR 
BCC 
JSR 
BCC 
LDA 
RTS 
LDA 
SEC 
RTS 
PAGE 

LDA 
RTS 



LDA 
TAX 
LDA 
BEQ 
LDA 
BNE 
LDA 
CMP 
BEQ 
TXA 
CLC 
ADC 
BCC 
RTS 



CHKROOT 
CHKVLOG 

SCRTCH 
TOTDEVS 
LOKDEV1 
#VNFERR 



tVCBDEV 

(VCBPTR) , 

DEVNUM 

TWRPROT1 

DSWGLOB 

NXTDEV 

VERFYVOL 

NXTDEV 

CHKROOT 

NXTDEV 

#0 

SNSWIT1 

NXTDEV 

CHKVLOG 

VCB,X 

SNSWIT2 



IVCBSIZE 

SNSWIT1 

#0 

DUPLFLAG 

VCBPTR 

LOGVCB1 

NONSOS 

DUPLFLAG 

SNSWIT6 

#VCBSWAP 

#1 

(VCBPTR) ,Y 

DEVNUM 

SWAPOUT 

SNSWIT3 

#XIOERROR 

IVCBSWAP 
#0 

(VCBPTR) ,Y 
VERFYVOL 
SNSWIT5 
USRREQ 
SNSWIT4 
IVNFERR 

IDUPVOL 



#NOTSOS 



#0 

VCB,X 

DVCB2 

VCB+VCBSWAP,X 
DVCB2 

VCB+VCBDEV, X 

DEVNUM 

FOUNDEV 



IVCBSIZE 
DVCB1 



GO COMPARE TO SEE IF WE FOUND WHAT WE'RE 
LOOKING FOR. . . 



LOOK AT OTHER DEVICES? 



YES. 

REPORT VOLUME NOT FOUND. 



SENSE DSWITCH 



MAKE SURE DEVICE NUMBER IS CURRENT 

USES DEVNUM 

DISK SWITCH GLOBAL 

BRANCH IF NO DISK SWITCH 

COMPARES VCBPTR VS. DEVNUM CONTENTS 

BRANCH IF DISK HAS NOT BEEN SWITCHED 

COMPARES PATHNML VS. GBUF 

IGNORE IF NOT WHAT WE ARE LOOKING FOR 

LOOK FOR FREE 

ANY ERRORS LOGGING IN THE NEW VOLUME 
MAKE SURE THE NEW VOLUME IS LOGGED 
VCB ENTRY 
BRANCH IF FOUND 



LOOK AT NEXT VCB AREA 

CAN'T BE LOGGED IN! 

TURN OFF DUPLICATE VOLUME FLAG 

PARTIALLY LOG IN THE NEW VOLUME 
CS MEANS NONSOS ERROR 
WAS IT A DUPLICATE VOLUME? 
BRANCH IF YES 

BY MAKING SWAP BYTE NON ZERO 

SO SWAPOUT WON'T AFFECT 

A REG PASSES DEVNUM TO SWAPOUT 

OLD ACTIVE MOUNT MUST BE SWAPPED 

USER REFUSED TO REPLACE OLD VOLUME 

NOW LOG IN THE NEW ALL THE WAY 



DON'T BOTHER TO ASK IF NEW VOLUME IS ALREADY MOUNTED 
BRANCH IF NEW VOLUME ON LINE 
ASK USER TO REMOUNT NEW VOLUME 
USER SAYS THEY DID: CHECK IT OUT 



TELL EM IT'S NOT A SOS DISK (COULD BE PASCAL) 
CARRY SHOULD ALREADY BE SET 



SCAN VCB FOR DEVICE SPECIFIED IN 'DEVNUM' 
FIRST TEST FOR VALID VCB. 



SWAPPED VOLUMES DON'T COUNT 

AS LOGGED IN 
GET DEVICE NUMBER 
TEST AGAINST REQUESTED DEVICE 
YES, SET UP A POINTER TO IT 
BUMP TO NEXT VCB 



BRANCH IF MORE TO LOOK AT. 

RETURN CARRY SET TO INDICATE NOT FOUND 



; PRESERVE CURRENT ADDR OF FREE VCB 
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000563 




LDA 


#0 


LOOK FOR A CURRENTLY LOGGED ON VOLUME OF THE SAME NAME . 


000564 


TSDUPV1 


STA 


VCBPTR 




000565 




JSR 


CMPVCB 




000566 




BCS 


TSDUPV2 


BRANCH IF NO MATCH. 


000567 




LDY 


#VCBSTAT 


TEST FOR ANY OPEN FILES. 


000568 




LDA 


(VCBPTR) , Y 




r\ n n it r n 

000569 




BMI 


FOUNDDUP 


TELL THE SUCKER HE CAN'T LOOK AT THIS VOLUME! 


000570 




LDA 


#0 


TAKE DUPLICATE OFF LINE IF NO OPEN FILES . 


000571 




TAY 






000572 




STA 


(VCBPTR) , Y 




000573 




BEQ 


NODUPVOL 


RETURN THAT ALL IS OK TO LOG IN NEW. 


000574 


TSDUPV2 


LDA 


VCBPTR 




000575 




CLC 






000576 




ADC 


#VCBSIZE 


BUMP TO NEXT ENTRY . 


000577 




BCC 


TSDUPV1 




000578 


NODUPVOL 


EQU 






000579 


FOUNDEV 


CLC 






000580 


FNDDUP1 


STX 


VCBPTR 




000581 




RTS 






000582 










000583 


FOUNDDUP 


STA 


DUPLFLAG 


A DUPLICATE HAS BEEN DETECTED. 


000584 




SEC 




INDICATE ERROR 


000585 




LDA 


VCBPTR 


SAVE ADDRESS OF DUPLICATE 


000586 




STA 


VCBENTRY 




000587 




BCS 


FNDDUP1 


BRANCH ALWAYS TAKEN 


000588 




PAGE 






000589 










000590 










000591 


LOGVCB 


LDY 


#VCBNML 


IS THIS A PREVIOUSLY LOGGED IN VOLUME 


000592 




LDA 


(VCBPTR) , Y 


(ACC=0?) 


000593 




BEQ 


LOGVCB1 


NO, GO AHEAD AND PREPARE VCB . 


000594 




JSR 


CMPVCB 


DOES VCB MATCH VOLUME READ? 


000595 




BCC 


VCBLOGD 


YES, DON ' T DISTURB IT . 


000596 


LOGVCB1 


LDA 


#0 


ZERO OUT VCB ENTRY 


000597 




LDY 


#VCBSIZE-1 




000598 


ZERVCB 


STA 


(VCBPTR) , Y 




000599 




DEY 






000600 




BPL 


ZERVCB 




000601 




JSR 


TSTSOS 


MAKE SURE IT'S A SOS DISKETTE. 


000602 




BCS 


VCBLOGD 


IF NOT, RETURN CARRY SET. 


000603 




JSR 


TSTDUPVOL 


FIND OUT IF A DUPLICATE WITH OPEN FILES ALREADY EXISTS 


000604 




BCS 


NOTLOG0 




r\ n r\ r~ n c 

000605 




LDA 


GBUF+4 


MOVE VOLUME NAME TO VCB 


000606 




AND 


#$F 


STRIP ROOT MARKER 


000607 




TAY 






000608 




PHA 






000609 


MOVOLNM 


LDA 


GBUF+4 , Y 




000610 




STA 


(VCBPTR) , Y 




000611 




DEY 






000612 




BNE 


MOVOLNM 




000613 




PLA 




GET LENGTH AGAIN 


000614 




STA 


(VCBPTR) , Y 


SAVE THAT TOO . 


000615 




LDY 


#VCBDEV 


SAVE DEVICE NUMBER ALSO. 


000616 




LDA 


DEVNUM 




000617 




STA 


(VCBPTR) , Y 




000618 




JSR 


CLEARBMS 


MARKS THIS DEVICES OLD BITMAPS AS INVALID (A REG PASSED) 


000619 




LDA 


GBUF+VTBLK+ 4 


AND TOTOL NUMBER OF BLOCKS ON THIS UNIT, 


000620 




LDY 


fVCBTBLK 




000621 




STA 


(VCBPTR) , Y 




000622 




LDA 


GBUF+VTBLK+5 




000623 




I NY 






000624 




STA 


(VCBPTR) , Y 




000625 




LDY 


# VCB ROOT 




000626 




LDA 


BLOKNML 


AND ADDRESS OF ROOT DIRECTORY 


r\ n r\ r n -i 

00062 / 




STA 


(VCBPTR) , Y 




000628 




I NY 






000629 




LDA 


BLOKNMH 




000630 




STA 


(VCBPTR) , Y 




000631 




LDY 


#VCBDMAP 




000632 




LDA 


GBUF+VBMAP+ 4 


AND LASTLY, THE ADDRESS 


000633 




STA 


(VCBPTR) , Y 


OF THE FIRST BITMAP 


000634 




LDA 


GBUF+VBMAP+ 5 




000635 




I NY 






000636 




STA 


(VCBPTR) , Y 




000637 




CLC 




INDICATE THAT IT WAS LOGGED IF POSIBLE. 


000638 


VCBLOGD 


RTS 






000639 


NOTLOG0 


JMP 


NOTLOG1 




000640 




PAGE 






000641 


CMPVCB 


LDA 


GBUF+4 


COMPARE VOLUME NAME IN VCB 


000642 




AND 


#$F 




000643 




LDY 


fVCBNML 


WITH NAME IN DIRECTORY 
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000644 




CMP 


(VCBPTR) , Y 


; ARE THEY SAME LENGTH 


n n r\ r a c 

000645 




BNE 


NOTSAME 




000646 




TAY 






000647 


VCBCMP1 


LDA 


GBUF+4 , Y 




n n r\ r a o 

000648 




CMP 


(VCBPTR) , Y 




n n r\ r~ a n 

000649 




BNE 


NOTSAME 




n n n r cn. 
000650 




DEY 






n n n r c i 

000651 




BNE 


VCBCMP1 




n n r\ r~ c n 

000652 




CLC 




; INDICATE MATCH. 


000653 




RTS 






000654 










000655 


VERFYVOL 


LDX 


#0 


; READ IN ROOT DIRECTORY HEADER. 


000656 




LDA 


#2 




00065 / 




JSR 


GETROT0 




n n r\ r c n 

000658 




BCS 


NOVRFY 1 


; PASS BACK WHATEVER OTHER ERROR OCCURS . 


000659 




JSR 


CMPVCB 


; TEST ROOT WITH VOLUME NAME IN VCB. 


000660 




BCC 


NOVRFY 


; BRANCH IF ROOT MATCHES VCB 


000661 




LDA 


#0 


; OTHERWISE, PASS BACK FOREIGN VOLUME ERROR (SOS 


000662 


NOVRFY 


RTS 




; RETURN RESULTS IN CARRY. 


000663 


N0VRFY1 


LDA 


#VNFERR 


; NOTHING IN DRIVE 


000664 




RTS 






000665 










000666 


GETROT0 


STA 


BLOKNML 




n n r\ r r —i 

00066 / 




STX 


BLOKNMH 


; STORE ADDRESS AND READ IN ROOT 


n n r\ r~ r o 

000668 




JSR 


RDGBUF 




000669 




BCC 


RETROT2 


; BRANCH IF SUCCESSFULLY READ. 


000670 


NOTSAME 


EQU 






0006 11 




SEC 




; INDICATE ERROR 


000672 


RE TROT 2 


RTS 






000673 










n n r\ r ~t a 

000674 


N0TL0G1 


LDX 


VCBPTR 


; LOAD THE VCB ADDRESS 


n n r\ r i c 

000675 




LDA 


VCBENTRY 


; OF THE DUPLICATE VOLUME 


r\ c\ r\ r "f r 

0006 /6 




STA 


VCBPTR 




nn n r 1 1 
0006 / / 




STX 


VCBENTRY 


; AND SAVE THE FREE VCB SPACE ADDR 


000678 




LDY 


#VCBDEV 


; IS DUPLICATE ON SAME DEVICE? 


000679 




LDA 


DEVNUM 




000680 




CMP 


(VCBPTR) , Y 




000681 




BNE 


NOTLOG2 


; BRANCH IF NOT 


r\ r\ r\ r~ n ^ 

000682 




JSR 


SWAP IN 


; SWAP IN IF NECESSARY 


r\ n n n o 

000683 




LDA 


#0 




000684 




STA 


DUPLFLAG 


; NO MORE DUPLICATE VOLUME STATUS 


000685 




LDA 


VCBPTR 


; MAKE CHKROOT WORK IN A MOMENT 


r\ n n n 

000686 




STA 


PATHNML 


; THIS IS INCREDIBLY GROSS 


000687 


; BUT IS A RESULT OF 


MAKING VOLUME A SPECIAL 




000688 


; CASE OF 


SEARCHING 


ALL DEVICES FOR 




r\ c\ n ^ o ci 
0006o9 


; A KNOWN 


VOLUME 






r\ n n r c\ r\ 

000690 




CLC 






000691 




RTS 






000692 


NOTLOG2 


LDA 


VCBENTRY 


; REACH HERE IF REAL DUPLICATE VOLUME 


000693 




STA 


VCBPTR 


; RESOTRE FREE VCB PTR 


r\ c\ n r n a 

000694 




CLC 






n n n r n c 
000695 




RTS 




; DUPLICATE VOLUME PRETENDS TO BE NO ERROR 


000696 




PAGE 






000697 


-k 








00069H 


TSFRBLK 


LDY 


#VCBTFRE+1 




000699 




LDA 


(VCBPTR) , Y 


; FIND OUT IF ENOUGH FREE BLOCKS 


000700 




DEY 




; ARE AVAILABLE TO ACCOMODATE REQEST. 


000701 




ORA 


(VCBPTR) , Y 


; BUT FIRST FIND OUT IF WE GOT A PROPER COUNT FOR 


r\ n n n n ^ 

000702 




BNE 


CMPFREB 


; BRANCH IF COUNT IS NON-ZERO 


r\ n n n n o 

000703 




DEY 




; IF ZERO, THEN COUNT MUST BE TAKEN 


000704 




LDA 


(VCBPTR) , Y 


; GET HIGH TOTAL BLKS 


000705 




TAX 




; SAVE IT 


000706 




DEY 




; GET LOW 


000707 




LDA 


(VCBPTR) , Y 


; TOTAL BLKS 


000708 




BNE 


TSFR01 




r\ r\ r\ "~i r\ n 

000709 




DEX 




; ADJUST FOR BITMAP BLOCK BOUNDARY 


000710 


TSFR01 


TXA 






000711 




LSR 


A 


; DIVIDE BY 16. THE RESULT IS THE NUMBER 


000712 




LSR 


A 


; OF BIT MAPS TO BE SEARCHED. 


000 /13 




LSR 


A 




000714 




LSR 


A 




n n m i c 
UUU / 15 




STA 




■ C 7\ T TT? T T 
, SAVhj 1 1 . 


000716 




LDA 


#0 


; START COUNT AT ZERO. 


000717 




STA 


SCRTCH 




000718 




STA 


SCRTCH+1 




000719 




LDA 


#$FF 


; MARK 'FIRST FREE' TEMP AS UNKNOWN 


000720 




STA 


NOFREE 




000721 




LDY 


#VCBDEV 


; MAKE SURE BIT MAP IS UP TO DATE 


000722 




LDA 


(VCBPTR) , Y 


; GET DEVICE NUMBER 


000723 




TAX 




; PASS TO 'UPBMAP' IN X 


000724 




JSR 


UPBMAP 


; (NOTHING HAPPENS IF IT DON'T HAFTA. ) 
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000725 
000726 
000727 
000728 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 
000771 
000772 
000773 
000774 
000775 
000776 
000777 
000778 
000779 
000780 
000781 
000782 
000783 
000784 
000785 
000786 
000787 
000788 
000789 
000790 
000791 
000792 
000793 
000794 
000795 
000796 
000797 
000798 
000799 
000800 
000801 
000802 
000803 
000804 
000805 



DSKFULL 
TFBERR 



COUNT 
FRCONT 



FRCNT2 



FRCNT3 



CFREE1 



BCS 
LDY 
LDA 
STA 
I NY 
LDA 
STA 
JSR 
BCS 
JSR 
DEC 
BMI 
INC 
BNE 
INC 
JMP 
PAGE 

LDY 
LDA 
BMI 
STA 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
LDA 
SEC 
SBC 
I NY 
LDA 
SBC 
BCC 
CLC 
RTS 
LDA 
SEC 
RTS 
PAGE 

LDY 
LDA 
BEQ 
JSR 
LDA 
BEQ 
JSR 
I NY 
BNE 
BIT 
BPL 
LDA 
ORA 
BEQ 
LDY 
LDA 
SEC 
SBC 
LSR 
LSR 
LSR 
LSR 
SEC 
SBC 
STA 
RTS 

ASL 
BCC 
INC 
BNE 
INC 
TAX 
BNE 
RTS 

CHN 



TFBERR 
#VCBDMAP 
(VCBPTR) ,Y 
BLOKNML 

(VCBPTR) ,Y 
BLOKNMH 
RDGBUF 
TFBERR 
COUNT 
BMCNT 
CHGVCB 
BLOKNML 
BMAPRD 
BLOKNMH 
BMAPRD 



tVCBCMAP 

NOFREE 

DSKFULL 

(VCBPTR) , Y 
#VCBTFRE+1 
SCRTCH+1 

(VCBPTR) ,Y 

SCRTCH 
(VCBPTR) ,Y 
(VCBPTR) ,Y 

REQL 

(VCBPTR) ,Y 
REQH 
DSKFULL 



#OVRERR 



#0 

GBUF, Y 

FRCNT1 

CNTFREE 

GBUF+S100, Y 

FRCNT2 

CNTFREE 

FRCONT 

NOFREE 

FRCNT3 

SCRTCH 

SCRTCH+1 

FRCNT3 

#VCBTBLK+1 

(VCBPTR) ,Y 

#501 

A 

A 

A 
A 

BMCNT 
NOFREE 



A 

CFREE1 
SCRTCH 
CFREE1 
SCRTCH+1 



ALLOC, 4, 1 



BRANCH IF WE GOT TROUBLE, 
GET ADDRESS OF FIRST BIT MAP. 



(FOR HIGH ADDRESS) 



USE G (ENERAL) BUFF (ER) FOR TEMPORARY 

SPACE TO COUNT FREE BLOCKS (BITS) 
GO COUNT EM 

WAS THAT THE LAST BIT MAP? 

IF SO, GO CHANGE FCB TO AVOID DOING THIS AGAIN! 
NOTE: THE ORGANIZATION OF THE BIT MAPS 
ARE CONTIGUOUS FOR SOS VERSION 

IF SOME OTHER ORGANIZATION IS IMPLEMENTED, THIS CODE 
MUST BE CHANGED! 



MARK WHICH BLOCK HAD FIRST FREE SPACE 

BRANCH IF NO FREE SPACE WAS FOUND. 

UPDATE THE FREE COUNT . 

GET HIGH COUNT BYTE 

UPDATE VOLUME CONTROL BLOCK. 



AND LOW BYTE TOO . . . 
COMPARE TOTAL AVAILABLE 



FREE BLOCKS ON THIS VOLUME. 



BEGIN AT THE BEGINNING. 

GET BIT PATTERN 

DON'T BOTHER COUNTING NOTHIN ' 

DO BOTH PAGES WITH SAME LOOP 



LOOP TILL ALL 512 BYTES COUNTED 

HAS FIRST BLOCK WITH FREE SPACE BEEN FOUND YET? 
BRANCH IF IT HAS. 

TEST TO SEE IF ANY BLOCKS WERE COUNTED 
BRANCH IF NONE COUNTED. 

SHOW THIS MAP IS FIRST WITH FREE SPACE 
CORRECT FOR EXACT MULTIPLES OF $1000 



SUBTRACT COUNTDOWN FROM TOTAL BIT MAPS 



COUNT THE NUMBER OF BITS IN THIS BYTE. 



LOOP UNTIL ALL BITS COUNTED. 
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000806 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FNDFIL 

000807 ************************************************************ 
000808 

000809 

End of File — Lines: 809 Characters: 31627 
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FILE : "SOS. INIT. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



***************************************************************** 
* APPLE /// SOS 1.3 SOURCE CODE FILE: INIT. SRC 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



******** 



******** 



SBTL 
REL 

INCLUDE 
ORG 
EQU 
MSB 
REP 

COPYRIGHT (C 



"SOS 1.1 INITIALIZATION" 

SOSORG, 6,1,254 
ORGINIT 



REP 



OFF 
100 

APPLE COMPUTER INC. 
ALL RIGHTS RESERVED 
100 



SOS INIT MODULE (VERSION 
(DATE 



1.10 



) 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



= 8/04/81) 
100 

INT. INIT 
EVQ. INIT 
CLK. INIT 
MMGR. INIT 
BMGR. INIT 
DMGR. INIT 
CFMGR. INIT 
BFM.INIT 



EXTERNAL SUBROUTINES S DATA 



EXTRN 
EXTRN 



SXPAGE 
SYSDEATH 



INTERRUPT SYSTEM INITIALIZATION 



EXTRN 


COLDSTRT 


EXTRN 


IRQ.RCVR 


EXTRN 


NMI . RCVR 


EXTRN 


NMI FLAG 


EXTRN 


SIRTABLE 


EXTRN 


SIRTBLSIZ 


EXTRN 


ZPGSTACK 


EXTRN 


ZPGSTART 



EVENT QUEUE INITIALIZATION 

EXTRN EV. QUEUE 

EXTRN EVQ . LEN 

EXTRN EVQ . CNT 

EXTRN EVQ.SIZ 

EXTRN EVQ . FREE 

EXTRN EVQ. LINK 

CLOCK INITIALIZATION 



CHARACTER FILE MANAGER INITIALIZATION 



EXTRN 
EXTRN 



CFCB.MAX 
CFCB . DEV 



DEVICE MANAGER INITIALIZATION 



EXTRN 
EXTRN 



DMGR 

MAX . DNUM 



BUFFER MANAGER INITIALIZATION 



EXTRN 
EXTRN 
EXTRN 
EXTRN 



BUF.CNT 
PGCT . T 
XBYTE.T 
BUFREF 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



MEMORY MANAGER INITIALIZATION 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



ST.CNT 
ST. ENTRY 
ST. FREE 
ST.FLINK 
VRT . LIM 
MEMSIZE 
MEM2SML 



BLOCK FILE MANAGER INITIALIZATION 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

CONSTANT DECLARATIONS 



TRUE 
FALSE 
BITON6 
BITON7 



EQU 
EQU 
EQU 
EQU 



FCBZPP 

PATHBUF 

VCB 

WORKSPC 

PFIXPTR 

FCBADDRH 

BMAPAGE 

BMBPAGE 

BMAMADR 

BMBMADR 

BFMFCB1 

BFMFCB2 



$80 
$00 
$40 
$80 



SYSTEM CONTROL REGISTERS 



E.REG 
Z .REG 



EQU 
EQU 
SBTL 



$FFDF 
$FFD0 



/ENVIRONMENT REGISTER 
;ZERO PAGE REGISTER 



6522 REGISTERS 



"INTERRUPT SYSTEM INITIALIZATION" 



$FFD2 
$FFD3 
$FFDB 
$FFDC 
$FFDD 
$FFDE 
$FFE0 
$FFE2 
$FFE3 
$FFEB 
$FFEC 
$FFED 
$FFEE 
$C0F1 



60 



THIS SUBROUTINE INITIALIZES THE INTERRUPT SYSTEM. 
ALL HARDWARE INTERRUPTS ARE MASKED AND THE 
INTERRUPT ALLOCATION TABLE IS CLEARED. 



60 



DDRB 

DDRA 

ACR 

PCR 

IFR 

IER 

I ORB 

DDRB 

DDRA 

ACR 

PCR 

IFR 

IER 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
SEI 
LDA 
STA 

LDA 
PHA 
ORA 
STA 



LDA 
STA 
STA 
LDA 



#>ZPGSTART 
ZPGSTACK 



IBITON7+BITON6 
E.REG 



#$FF 
D . DDRB 
D . DDRA 
#$00 



DISABLE INTERRUPTS 
SET UP MIH 

ZERO PAGE STACK POINTER 

; SELECT $C000 I/O SPACE 
; AND SET 1 MHZ 



; RESET ACIA 
;SET UP 6522 D 
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000158 


STA 


D . ACR 






000159 


LDA 


#$76 






000160 


STA 


D . PCR 






000161 


LDA 


#$7F 






000162 


STA 


D . IFR 






000163 


STA 


D. IER 






0001 64 


LDA 


#$82 






000165 


STA 


D . IER 






000166 










000167 


LDA 


#$3F 




;SET UP 6522 E 


000168 


STA 


E . DDRB 






000169 


LDA 


#$0F 






000170 


STA 


E . DDRA 






000171 


LDA 


#$00 






000172 


STA 


E .ACR 






000173 


LDA 


#$63 






000174 


STA 


E . PCR 






000175 


LDA 


#$7F 






000176 


STA 


E . IFR 






000177 


STA 


E . IER 






000178 










000179 


LDA 


#$FF 






000180 


STA 


E . IORB 




; SOUND PORT 


000181 


BIT 


$C0D8 




; DISABLE GRAPHICS SCROLL 


000182 


BIT 


$C0DA 




; DISABLE CHARACTER DOWNLOAD 


000183 


BIT 


$C0DC 




; DISABLE ENSEL 


000184 


BIT 


$C0DE 




; SET ENSIO FOR INPUT 


000185 










000186 


PLA 






;RESTORE E REGISTER 


000187 


STA 


E . REG 






000188 










000189 


LDA 


# FALSE 






000190 


STA 


NMI FLAG 




; CLEAR NMI WAIT FLAG 


000191 


LDY 


#>SIRTBLSIZ-1 






000192 


INTI010 STA 


SIRTABLE, Y 




; ALLOCATION TABLE 


000193 


DEY 








000194 


BPL 


INTI010 






000195 


LDA 


#TRUE 






000196 


STA 


SIRTABLE+$OA 




;LOCK DOWN ANY SLOT SIR 


000197 










000198 


LDX 


#$05 






000199 


INTI020 LDA 


RAMVECT, X 




;SET UP VECTORS 


000200 


STA 


$FFFA, X 




; AT $FFFA - $FFFF 


000201 


LDA 


RAMJMPS , X 




;SET UP JMP INSTRUCTIONS 


000202 


STA 


$FFCA, X 




; AT $FFCA - $FFCF 


000203 


DEX 








000204 


BPL 


INTI020 






000205 


RTS 








000206 










000207 


RAMVECT DW 


NMI . RCVR 






000208 


DW 


COLDSTRT 






000209 


DW 


IRQ. RCVR 






000210 


RAMJMPS JMP 


NMI . RCVR 






000211 


JMP 


IRQ. RCVR 






000212 


SBTL 


"EVENT QUEUE 


INITIALIZATION" 


000213 


REP 


60 






000214 


-k 








000215 


* THIS SUBROUTINE INITIALIZES THE EVENT 


QUEUE 


ALL ENTRIES 


000216 


* ARE CLEARED AND LINKED 


INTO THE FREE 


LIST. 


THE ACTIVE 


000217 


* LIST IS EMPTY. 








000218 










000219 


REP 


60 






000220 


-k 








000221 










000222 


EVQ. INIT EQU 


* 






000223 


-k 








000224 


* CLEAR ALL ENTRIES 








000225 


-k 








000226 


LDY 


#>EVQ . LEN 






000227 


LDA 


#0 






000228 


EVQI010 STA 


EV.QUEUE-1, Y 






000229 


DEY 








000230 


BNE 


EVQI010 






000231 


-k 








000232 


* SET UP FREE LIST 








000233 


-k 








000234 


LDX 


#>EVQ.CNT-2 






000235 


LDA 


#>EVQ.SIZ 






000236 


STA 


EVQ . FREE 






000237 


EVQI020 TAY 








000238 


CLC 









« Apple /// Computer • SOS 1 .3 Source Code Listing • 107 of 255 




000239 






ADC 






#>EVQ.SIZ 




000240 






STA 






EVQ . LINK, Y 




000241 






DEX 










000242 






BNE 






EVQI020 




000243 






RTS 










000244 






SBTL 






"PSEUDO CLOCK INITIALIZATION" 


000245 






REP 






60 




000246 
















000247 




THIS SUBROUTINE INITIALIZES THE PSEUDO 


CLOCK . IF THE 


000248 




RAM BEHIND 


THE "D" 


5522 


HAS THE PROPER 


CHECKSUM, IT 


000249 


* 


IS USED TO 


INITIALIZE 


THE PSEUDO CLOCK. 


OTHERWISE , 


000250 


* 


THE PSEUDO 


CLOCK IS 


SET 


TO ZERO. 




n n n i c i 
000251 


* 














000252 


* 


(ADDED 23 OCT 81) 










000253 


* 


BOTH THE CLOCK AND PSEUDO CLOCK ARE 




000254 


* 


ARE NOW INITIALIZED 










000255 


* 














000256 






REP 






60 




000257 
















000258 


PCLK 


EQU 






SF0 




000259 


CKSUM 


EQU 






$F2 




nn n i r n 
0002 60 


CLKICR 


EQU 






$11 


- r*T r\r*TS tt.tt^tttdottdt 1 ^/"M\t , t ,- d/~\t r>T7r~' 
, LLiULfv IN IhjKKUrl L-UIMIKO-Li Ktb 


000261 


CLKSTBY 


EQU 






$16 


; CLOCK STANDBY INTERRUPT 


n n n r o 

0002 62 


CLOCK 


EQU 






$C070 




m n n n ^ o 

0002 63 


* 














0002 64 


CLK.INIT 


EQU 










0002 65 






LDA 






#$D0 




r\ n n o £ ^ 
0002 66 






STA 






PCLK 


; POINT { PCLK) TO 8F : FFD0 


0002 67 






LDA 






#$FF 




r\ n n o ^ o 

0002 68 






STA 






PCLK+1 




r\ n n o ^ n 

0002 69 






LDA 






#$8F 




000270 






STA 






SXPAGE+PCLK+1 




000271 






LDA 






#$A5 




r\ n n o "7 o 

0002 12 






STA 






CKSUM 


; INITIALIZE CHECKSUM 


000273 


* 














000274 






LDY 






#$00 




000275 


CLK010 


LDA 






( PCLK) , Y 


; COPY SAVED CLOCK DATA 


000276 






STA 






PCLOCK, Y 


; TO PSEUDO CLOCK 


000277 






EOR 






CKSUM 




r\ n n o t o 

000278 






STA 






CKSUM 


; UPDATE CHECKSUM 


000279 






I NY 










000280 






CPY 






#$0A 




000281 






BCC 






CLK010 




r\ n r\ o o o 

000282 


* 














000283 






CMP 






(PCLK) , Y 


;TEST CHECKSUM 


000284 






BEQ 






CLK030 




000285 


* 














000286 






LDA 






#$00 




r\ n n o o ~7 

00028 7 


CLK020 


DEY 










r\ n n o o o 

000288 






STA 






PCLOCK, Y 


; ZERO PSEUDO CLOCK 


000289 






BNE 






CLK020 




0002 90 


CLK030 


LDA 






E.REG 




0002 91 






PHA 










0002 92 






ORA 






#$80 


; SET 1 MHZ 


0002 93 






STA 






E.REG 




0002 94 






LDA 






#$00 




000295 






LDY 






Z .REG 




r\ n n o n /~ 

0002 96 






LDX 






#CLKICR 




000297 






STX 






Z .REG 




000298 






STA 






CLOCK 


; DISABLE CLOCK INTERRUPTS 


nn n n n n 
0002 99 






LDX 






#CLKSTBY 




000300 






STX 






Z .REG 




000301 






STA 






CLOCK 


; DISABLE STANDBY INTERRUPT 


000302 






STY 






Z .REG 




000303 






PLA 










000304 






STA 






E.REG 




r\ n n o n c 

000305 






RTS 










r\ n n o n ^ 

000306 






SBTL 






"CHARACTER FILE 


MANAGER INITIALIZATION" 


r\ n n o n "7 

00030 / 






REP 






60 




r\ n n o n n 

000308 


* 














000309 




CHAR FILE MANAGER INITIALIZATION ROUTINE 




000310 
















000311 




CFMGR. INIT 


INITIALIZES 


ALL ENTRIES IN THE CFCB TABLE TO 


000312 


* 


THE "FREE" 


STATE . 










000313 


* 














000314 






REP 






60 




000315 


* 














000316 


CFMGR. INIT 


EQU 










000317 






LDA 






#$80 




000318 






LDX 






#CFCB.MAX-1 




000319 


CFINIT010 


STA 






CFCB . DEV, X 
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000320 


DEX 






000321 


BPL 




CFINIT010 


000322 


RTS 






r\ n r\ o n o 

000323 


SBTL 




"DEVICE MANAGER INITIALIZATION" 


r\ n n o n /i 

000324 


REP 




60 


r\ n n o n c 

000325 








nn n "3 i r 
00032b 


* DEVICE MANAGER INITIALIZATION ROUTINE 


000327 








000328 


* INITIALIZES THE SYSTEM DEVICE TABLE (SDT) BY WALKING THE 


000329 


* DEVICE INFORMATION BLOCK 


(DIB) LINKS. CALLED BY SYSLDR. 


r\ n n o o n 

000330 








000331 


REP 




60 


r\ n r\ o o o 

000332 








r\ n n o ^ o 

000333 


D . TPARMX EQU 




$C0 


r\ n n o ^ /i 

000334 


REQCODE EQU 




D . TPARMX+$00 


n n n "3 "3 c 
000335 


DNUM EQU 




D . TPARMX+S01 


r\ n n o o /~ 

000336 


DNUM . TEMP DS 




1 


r\ n n o ^ ~7 

000337 








000338 








r\ n n o o rs 

000339 


DMGR.INIT EQU 




* 


000340 


LDX 




MAX . DNUM 


r\ n n o /i t 

000341 


INC 




MAX. DNUM ; MAX . DNUM : =MAX DEV NUMBER 


000342 


STX 




DNUM. TEMP 


000343 


DMI110 LDA 




#8 ; INITIALIZE ALL DEVICES IN 


000344 


STA 




REQCODE 


000345 


LDA 




DNUM. TEMP 


000346 


STA 




DNUM 


000347 


JSR 




DMGR 


000348 


DEC 




DNUM. TEMP 


000349 


BNE 




DMI110 


000350 


RTS 




; NORMAL EXIT 


r\ n n o c i 

000351 


SBTL 




"BUFFER MANAGER INITIALIZATION" 


000352 


REP 




60 


000353 








000354 


* BMGR.INIT 






000355 








000356 


* THIS ROUTINE INITIALIZES 


THE BUFFER TABLE'S ENTRIES TO "FREE". 


000357 


* CALLED DURING SYSTEM 


BOOT. 


000358 








000359 


REP 




60 


000360 








000361 


BMGR.INIT EQU 






000362 


LDA 




#$FF ; USED WHEN FINDING LOWEST 


000363 


STA 




XBYTE.T 


000364 








000365 


LDX 




#BUF.CNT-1 


000366 


LDA 




#$80 


000367 


BUFI010 STA 




PGCT.T,X ;SET ALL ENTRIES "FREE" 


r\ n r\ o r~ o 

000368 


DEX 






000369 


BNE 




BUFI010 


000370 








00 U J / I 


STX 




BUFREF ;ZERO COUNT BYTE IN BUFFER 


000372 








000373 


CLC 






000374 


RTS 






000375 


SBTL 




"MEMORY MANAGER INITIALIZATION" 


r\ r\ r\ 1 "~t s~ 

000376 


REP 




60 


000377 








000378 


* MMGR. INIT 






000379 








r\ n n o o n 

000380 


* THIS ROUTINE INITIALIZES 


THE MEMORY MANAGER'S SEGMENT TABLE 


000381 


* TO FREE ENTRIES, AND 


DETERMINES THE MEMORY SIZE OF THE 


000382 


* MACHINE (96K, 128K, 160K, 192K, 224K, 256K, . . , 512K IN 32K STEPS). 


000383 








000384 


REP 




60 


000385 








r\ n n o o r 

000386 


MMGR. INIT EQU 




* 


r\ n n o o "~7 

00038 / 








000388 


* INIT SEGMENT TABLE 






000389 








000390 


LDA 




#0 


000391 


STA 




ST. ENTRY 


000392 


LDA 




#581 


000393 


STA 




ST. FREE 


000394 








000395 


LDY 




#ST.CNT-1 


000396 


LDA 




#$80 ; SET LAST LINK TO NULL 


000397 


STA 




ST . FLINK, Y 


000398 


MEMI010 TYA 






000399 


ORA 




#$80 


000400 


DEY 
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000401 






STA 


ST . FLINK, Y 






000402 






BNE 


MEMI010 






000403 














000404 




COMPUTE 


VIRTUAL LIMIT 


FROM MEMORY SIZE 




000405 




VRT . LIM 


: = NUMBER OF 


PAGES IN BANK SWITCHED 


MEMORY - 1 


000406 






:= (MEMSIZ-2) 


*64 - 1 






000407 






:- (MEMSIZ-4) 


* r a i ill 

* 04 + 12/ 






000408 














000409 






SEC 








000410 






LDA 


MEMSIZE 






000411 






SBC 


#4 






000412 






BCC 


MEMI . ERR 






000413 






LSR 


A 






000414 






LSR 


A 






000415 






STA 


VRT.LIM+1 






000416 






LDA 


#$FE 






000417 






ROR 


A 






000418 






STA 


VRT. LIM 






000419 






CLC 








000420 






RTS 






; NORMAL EXIT 


000421 


* 












000422 


MEM I . ERR 


LDA 


IMEM2SML 




; FATAL ERR - MEM < 64K 


000423 






JSR 


SYSDEATH 






000424 






PAGE 








000425 






REP 


60 






000426 














000427 


* 


BLOCK 


FILE MANAGER INITIALIZATION 






000428 


* 












000429 






REP 


60 






000430 


* 












000431 


SISTER 


EQU 


$1400 




;BFM XPAGE 


000432 


BFM. INIT 


EQU 


* 






000433 






LDA 


IBFMFCBl 




; ADDRESS OF PAGE 1 OF FCB 


000434 






STA 


>FCBZPP+1 






000435 






LDA 


IBFMFCB2 




; AND PAGE 2 


000436 






STA 


>FCBZPP+3 






000437 






LDA 


#0 






000438 






STA 


>FCBZPP 




; FCB PAGE ALIGNED 


000439 






STA 


>FCBZPP+2 






000440 






STA 


SISTER+FCBZPP+1 


; PREPARE PART OF EXTEND BYTE 


000441 






STA 


SISTER+FCBZPP+3 




000442 






TAY 






; MAKE ZERO INTO INDEX 


000443 


CLRBUFFS 


EQU 


* 






000444 






STA 


PATHBUF, Y 




; PATHNAME BUFFER PAGE 


000445 






STA 


VCB, Y 




; VOLUME CONTROL BLOCK PAGE 


000446 






STA 


(>FCBZPP) , Y 




; BOTH FILE CONTROL BLOCK PAGES 


000447 






STA 


(>FCBZPP+2) , 


Y 




000448 






I NY 








000449 






BNE 


CLRBUFFS 






000450 






LDX 


#$3F 




; SIZE OF MY ZERO PAGE STUFF 


000451 


CLRZWRK 


STA 


0,X 




; ZERO PAGE ZEROED 


000452 






STA 


WORKSPC,X 






000453 






DEX 








000454 






BPL 


CLRZWRK 






000455 






LDA 


#<PATHBUF 






000456 






STA 


PFIXPTR+1 






000457 






LDA 


#BFMFCB1 






000458 






STA 


FCBADDRH 






000459 






LDA 


#BMAPAGE 




; BIT MAP A PAGE NUMBER 


000460 






STA 


BMAMADR 






000461 






LDA 


fBMBPAGE 




; BIT MAP B PAGE NUMBER 


000462 






STA 


BMBMADR 






000463 






CLC 








000464 






RTS 








000465 


* 












000466 






LST 


ON 






000467 


ZZEND 


EQU 


* 






000468 


ZZLEN 


EQU 


ZZEND-ZZORG 






000469 






IFNE 


ZZLEN-LENINIT 




000470 






FAIL 


2, "SOSORG 




FILE IS INCORRECT FOR INIT" 


000471 






FIN 








000472 














000473 












**************************** 


000474 




END OF 


APPLE /// SOS 


1.3 SOURCE CODE 


FILE: 


INIT. SRC 


000475 


************************************************************************* 


000476 















End of File — Lines: 476 Characters: 11714 
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FILE: "SOS. IPL.SRC1. TEXT" 



000001 


************************************************************************* 


r\ n n r\ n o 

000002 


* 


APPLE /// SOS 1.3 SOURCE CODE FILE: 


IPL.SRC1 




000003 










************************** 


000004 


* 


ASSEMBLER: APPLE ] [ 650 


2 ASSEMBLER 


from APPLE 


COMPUTER TOOLKIT 


000005 












000006 




SBTL 


"SOS 1.1 


INTRPTS . & 


PROC. LAUNCH" 


00000 / 




REL 








r\ n n r\ n o 

000008 




INCLUDE 


SOSORG, 6, 1 


,254 




000009 




ORG 


ORGIPL 






000010 


ZZORG EQU 


* 






r\ n r\ r\ i t 

000011 




MSB 


OFF 






000012 




REP 


60 






000013 




COPYRIGHT (C) 


APPLE COMPUTER INC. 1980 


000014 




ALL 


RIGHTS RESERVED 




000015 




REP 


60 






000016 












000017 




THIS MODULE IS RESPONSIBLE FOR FIELDING ALL 


INTERRUPTS 


000018 




AND RELAUNCHING THE INTERRUPTED CODE AFTER THE INTERRUPTS 


000019 




HAVE BEEN PROCESSED. 


THE MAJOR FUNCTIONAL AREAS ARE: 


r\ r\ r\ r\ *~) r\ 

000020 












000021 




GENERAL INTERRUPT 


RECEIVER 






000022 




NMI INTERRUPT RECEIVER 






000023 




DISPATCHER 








000024 




INTERRUPT ALLOCATION S DEALLOCATION 




r\ n n r\ n c 

000025 




EVENT QUEUE MANAGER 






r\ n n r\ n ^ 

000026 




TABLE INITIALIZATION 






000027 












r\ n n r\ n o 

000028 




REP 


60 






000029 












000030 




SUBROUTINE ENTRY POINTS 






000031 












000032 




ENTRY 


IRQ.RCVR 




/GENERAL INTERRUPT RECEIVER 


000033 




ENTRY 


NMI . RCVR 




; NON-MASKABLE INTRPT RCVR 


000034 




ENTRY 


DISPATCH 




; DISPATCHER 


r\ n n r\ o it 

000035 




ENTRY 


ALLOCS IR 




; SIR ALLOCATION 


000036 




ENTRY 


DEALCSIR 




;SIR DEALLOCATION 


r\ n n r\ o ^ 

000037 




ENTRY 


SELC800 




/SELECT I/O EXPANSION ROM 


000038 




ENTRY 


NMIDSBL 




.•DISABLE NMI 


000039 




ENTRY 


NMIENBL 




; ENABLE NMI 


000040 




ENTRY 


NMIDBUG 




; NMI DEBUG ENTRY 


000041 




ENTRY 


NMICONT 




, 1MM1 DEBUG COIN 1 11MUA1 IUIn 


000042 




ENTRY 


QUEEVENT 




; QUEUE AN EVENT 


000043 












000044 




EXTERNAL SUBROUTINES & 


DATA 






000045 












r\ n n r\ a r 

000046 




EXTRN 


SCMGR 






000047 




EXTRN 


CHKBUF 






000048 












000049 




SYSTEM DEATH ERRORS 








000050 












000051 




EXTRN 


SYSDEATH 






000052 




EXTRN 


BADBRK 






000053 




EXTRN 


BAD I NT 1 






000054 




EXTRN 


BAD I NT 2 






000055 




EXTRN 


NMI HANG 






000056 




EXTRN 


EVQOVFL 






000057 




EXTRN 


STKOVFL 






000058 


* 










000059 


* 


LINKAGE DATA FOR INITIALIZATION ROUTINES 




000060 


* 










000061 




ENTRY 


EV. QUEUE 






r\ n n r\ r o 
000062 




ENTRY 


EVQ . CNT 






000063 




ENTRY 


EVQ. SIZ 






000064 




ENTRY 


EVQ . LEN 






000065 




ENTRY 


EVQ . FREE 






000066 




ENTRY 


EVQ. LINK 






000067 




ENTRY 


SIRTABLE 






000068 




ENTRY 


SIRTBLSIZ 






000069 




ENTRY 


ZPGSTACK 






000070 




ENTRY 


ZPGSTART 






000071 


* 










000072 


* 


SYSGLOB DATA 








000073 


* 










000074 




EXTRN 


SERR 






000075 




EXTRN 


CEVPRI 




; CALLER'S EVENT PRIORITY 


000076 




EXTRN 


SYSBANK 




; SYSTEM BANK 
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000077 




EXTRN 


KYBDNMI 




000078 




EXTRN 


NMISPSV 




000079 




EXTRN 


NMI FLAG 


;NMI PENDING FLAG 


000080 




EXTRN 


SCRNMODE 


; CURRENT SCREEN MODE 


000081 




EXTRN 


SIRTEMP 


;FOR ALLOCSIR & DEALCS 


000082 




EXTRN 


SIRARGSIZ 




r\ n n r\ o o 

00008 3 




EXTRN 


IRQCNTR 


; FLASE IRQ COUNTER 


000084 




EXTRN 


NMICNTR 


; TWO BYTE COUNTER 


000085 




EXTRN 


QEVTEMP 




000086 




EXTRN 


QEV. THIS 




000087 




EXTRN 


QEV . LAST 




000088 




EXTRN 


BACKMASK 




000089 










000090 


* CONSTANT DECLARATIONS 






000091 










r\ n n r\ r\ ^ 

000092 


FALSE 


EQU 


$00 




000093 


BITON0 


EQU 


$01 




000094 


BITON1 


EQU 


$02 




000095 


BITON2 


EQU 


$04 




000096 


BITON4 


EQU 


$10 




000097 


BITON5 


EQU 


$20 




000098 


BITON6 


EQU 


$40 




000099 


BITON7 


EQU 


$80 




000100 


BITOFF3 


EQU 


$F7 




000101 


BITOFF4 


EQU 


$EF 




000102 


BITOFF5 


EQU 


$DF 




000103 


BITOFF6 


EQU 


$BF 




000104 


BITOFF7 


EQU 


$7F 




000105 


BACKBIT 


EQU 


$20 


; BACKUP BIT MASK 


000106 










000107 


* SYSTEM 


CONTROL REGISTERS 




000108 










000109 


B.REG 


EQU 


$FFEF 


;BANK REGISTER 


000110 


E.REG 


EQU 


$FFDF 


/ENVIRONMENT REGISTER 


000111 


Z .REG 


EQU 


$FFD0 


; ZERO PAGE REGISTER 


000112 










000113 


* 6522 REGISTERS 






000114 










000115 


D. IFR 


EQU 


$FFDD 




000116 


D. IER 


EQU 


$FFDE 




000117 


E . IORB 


EQU 


$FFE0 




000118 


E.IFR 


EQU 


$FFED 




000119 


E.IER 


EQU 


$FFEE 




000120 


E.IORA 


EQU 


$FFEF 




000121 




PAGE 






000122 










000123 


* REGISTER PRESERVATION 


EQUATES 




000124 


* FOR USE 


DURING INTERRUPT PROCESSING 




000125 










000126 


A. SAVE 


EQU 


$103 




000127 


S . SAVE 


EQU 


$104 




000128 


S P. SAVE 


EQU 


$1FF 




000129 


E . SAVE 


EQU 


$1FE 




000130 


Z . SAVE 


EQU 


$1FD 




000131 


B . SAVE 


EQU 


$1FC 




000132 


EXPNSLOT 


DFB 


$00 


; CURRENT I/O EXPANSION 


000133 










000134 


* STATUS 


LOCATIONS FOR 


INTERRUPT POLLING 




000135 










000136 


ACIASTAT 


EQU 


$C0F1 




000137 


ANYSLOT 


DFB 


BITON1 




000138 


SLOT1 


EQU 


$C065 




000139 


SLOT 2 


EQU 


$C064 




000140 


SLOT 3 


DFB 


BITON5 




000141 


SLOT 4 


DFB 


BITON4 




000142 










000143 


* INTERRUPT ZERO PAGE STORAGE S EQUATES 




000144 










000145 


SIRARGS 


EQU 


$F9 


;AND $FA 


000146 


QEVARGS 


EQU 


$FB 


;AND $FC 


000147 


IRQADDR 


EQU 


$FD 


;AND $FE 


00U148 


ZPGSP 


EQU 


$FF 




000149 


ZPGSTART 


EQU 


$F8 




000150 


ZPGSTOP 


EQU 


$28 




000151 


ZPGSPACE 


EQU 


$20 




000152 


ZPGSTACK 


DFB 


ZPGSTART 




000153 










000154 


* SYSTEM 


INTERNAL RESOURCE 




000155 


* TABLE STORAGE AND EQUATES 




000156 


-k 








000157 


SIRTBLSIZ 


EQU 


$18 
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000158 


SIRTABLE DS 


SIRTBLSIZ 


000159 


SIRADR.L DS 


SIRTBLSIZ 


000160 


NMIADR.L DS 


1 ;MUST PRECEED SIRADR.H 


000161 


SIRADR.H DS 


SIRTBLSIZ 


000162 


SIRADR.B DS 


SIRTBLSIZ 


000163 








000164 




EVENT QUEUE STORAGE AND 


EQUATES 


000165 








000166 


EVC 


.SIZ EQU 


6 ; ENTRY SIZE 


000167 


EVC 


. CNT EQU 


$07 ; ENTRY COUNT 


000168 


EVC 


. LEN EQU 


$2A ; (EVQ.SIZ*EVQ.CNT) 


000169 


EV. QUEUE DS 


EVQ . LEN 


000170 


EVC 


. FREE EQU 


EV.QUEUE+2 ; FIRST FREE ENTRY INDEX 


000171 


EVC 


. LINK EQU 


EV.QUEUE+0 ; NEXT ACTIVE ENTRY INDEX 


000172 


EVC 


. PRI EQU 


EV.QUEUE+1 ; EVENT PRIORITY 


0001 /3 


EVC 


. ID EQU 


EV.QUEUE+2 ; EVENT IDENTIFICATION 


000174 


EVC 


. ADRL EQU 


EV.QUEUE+3 ; EVENT ADDRESS: LOW BYTE 


000175 


EVQ.ADRH EQU 


EV.QUEUE+4 ; EVENT ADDRESS: HIGH BYTE 


000176 


EVC 


.BANK EQU 


EV.QUEUE+5 ; EVENT ADDRESS: BANK 


000177 




SBTL 


"GENERAL INTERRUPT RECEIVER" 


000178 




REP 


60 


000179 








000180 




THIS IS THE GENERAL INTERRUPT RECEIVER. WHEN AN 


000181 




INTERRUPT OCCURS, THE CPU PASSES CONTROL TO THE GIR 


000182 




THROUGH THE IRQ VECTOR. 


THE GIR IS RESPONSIBLE FOR 


000183 




SAVING THE CURRENT ENVIRONMENT, SETTING UP THE SOS 


000184 




ENVIRONMENT, AND CALLING THE APPROPRIATE CODE MODULE. 


000185 




IF THE INTERRUPT WAS CAUSED BY A BRK, THE GIR CALLS 


000186 


* 


THE SYSTEM CALL MANAGER. OTHERWISE, THE GIR POLLS THE 


000187 


* 


I/O DEVICES AND CALLS THE APPROPRIATE MASTER INTERRUPT 


000188 


* 


HANDLER. WHEN THE SCM 


OR MIH RETURNS, THE GIR PASSES 


000189 


* 


CONTROL TO THE DISPATCHER. 


000190 








000191 




REP 


60 


000192 


* 






000193 


IRC 


. RCVR EQU 




000194 








000195 




SAVE CPU REGISTERS A, X 


, & Y ON CURRENT STACK 


000196 


* 






000197 




PHA 




000198 




TXA 




000199 




PHA 




000200 




TYA 




000201 




PHA 




000202 








000203 




CHECK FOR STACK OVERFLOW AND 


000204 




SAVE INTERRUPTED STATUS 


IN Y REGISTER. 


000205 


* 






000206 




TSX 




000207 




CPX 


#$FA 


000208 




BCC 


GIR005 


000209 




LDA 


#>STKOVFL 


000210 




JSR 


SYSDEATH 


000211 


GIR005 LDY 


S.SAVE,X 


000212 








000213 




SET UP INTERRUPT ENVIRONMENT: 


000214 


* 


BINARY ARITHMETIC, 2 


MHZ, I/O ENABLED, 


000215 


* 


RAM WRITE ENABLED, PRIMARY STACK, 


000216 


* 


AND $F00O RAM SELECTED. PRESERVE 


000217 


* 


USER STATE OF SCREEN 


AND RESET LOCK. 


000218 


* 






000219 




CLD 




000220 




LDA 


E.REG 


000221 




TAX 




000222 




AND 


#BITON5+BITON4 


000223 




ORA 


#BITON6+BITON2 


000224 




STA 


E.REG 


000225 


* 






000226 




IF NOT ALREADY ON PRIMARY STACK, SAVE USER'S STACK 


000227 


* 


POINTER AND SET UP SOS 


STACK POINTER. 


000228 


* 






000229 




TXA 




000230 




AND 


#BITON2 


000231 




BNE 


GIR010 


000232 




TXA 




000233 




TSX 




000234 




STX 


S P. SAVE 


000235 




LDX 


#>E . SAVE 


000236 




TXS 




000237 




TAX 




000238 


* 
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ooo2oy 


* SAVE E, Z, B, S I/O EXPANSION SLOT ON 


SOS 


STACK 


000240 


* IF BRK THEN CALL SCMGR 


!]LSE POLL I/O 


DEVICES 


OU 02 4 1 










n n n o /ii 
00 02 4z 


GIRO 10 TXA 








00024J 


PHA 








00 02 44 


LDA 


Z . REG 






n n n o /i iz 
000245 


PHA 








00024b 


LDA 


B . REG 






f\ C\ f\ O /IT 

00024 / 


PHA 








n n n o a o 
00024o 


LDA 


EXPNSLOT 






0U024y 


PHA 








n r\ n o c n 

000250 


BIT 


$CFFF 






000251 


BIT 


$C020 




; RESET I/O SPACE 


n n n o c o 
000252 


LDA 


#$00 






n n no c o 
00025J 


STA 


EXPNSLOT 






n n n o iz .'l 
000254 


TYA 








000255 


AND 


#BITON4 






00025b 


BEQ 


POLL.IO 






00025 / 










n n n o (z o 
00025o 


* CALL SYSTEM CALL MANAGER; ON RETURN, 


PUT 


ERROR CODE IN 


n n n o iz n 

ooo25y 


* USER'S A REGISTER AND SET RETURN STATUS, 


THEN DISPATCH. 


n n no r n 
0002 bO 










n n n o r~ *\ 

0002 61 


TSX 






; CHECK FOR 


n n n o c o 
0002 b2 


CPX 


#>B . SAVE-2 




; REENTRANT 


n n n o r o 
00 02 D J 


BEQ 


GIR02 




; SYSTEM CALL 


n n n o c a 
UU Uz b4 


LDA 


#>BADBRK 






0002 b5 


JSR 


SYSDEATH 






n n n o r r 
0002 bb 


GIR020 LDA 


E . REG 




/SELECT $C00O RAM 


n n n o c~i 
0002b/ 


AND 


#BIT0FF6 






n n n o r~ o 
0002 bo 


STA 


E . REG 






n n n o r n 
0002 by 


CLI 






; ENABLE INTERRUPTS 


n n n o ~i n 
0002 /0 


JSR 


SCMGR 




;CALL THE SYSTEM CALL MGR 


000271 


LDA 


#BACKBIT 




; GET THE MASK 


nnnno 
0002 /2 


STA 


BACKMASK 




; SET IT IN SYSGLOB 


n n n o ^ o 
0002 lo 


JSR 


CHKBUF 






n r\ n o n a 
00 02 /4 


SEI 








0002 /5 


LDX 


S P . SAVE 






000276 


LDA 


Z . SAVE 






n n n o n t 
0002 / / 


EOR 


#BITON0 




; SET ZERO PAGE TO 


n n n o "7 o 
0002 /o 


STA 


Z . REG 




; CALLER'S STACK 


n n n o "7 n 

0002 /y 


LDA 


SERR 






n n n o o n 
0002o0 


STA 


>A . SAVE , X 






n n n o o i 
0002ol 


PHP 








n n n o o o 
0002o2 


LDA 


>S . SAVE, X 






n r\ n o o o 
0002o o 


AND 


#$7D 






n n n o o a 
0002o4 


STA 


>S . SAVE, X 






0002H5 


PLA 








n n n o o r 

0002«b 


AND 


#$82 






n n n o o "7 
0002o / 


ORA 


>S . SAVE, X 






n n n o o o 
0002OO 


STA 


>S . SAVE, X 






n n n o o n 

ooo2yy 


JMP 


DISPATCH 






nnmon 

uu uz y u 


PAGE 








n n n o n i 

0002 yi 










n n n o no 

0002 y2 


* SET INTERRUPT ZERO PAGE 


AND SOS BANK 






n n n o no 

0002 yj 


* THEN POLL I/O DEVICES 








n n n o n a 

0002 y4 










n n n o n c 

0002 y5 


POLL. IO BIT 


E.IORA 




/VERIFY THAT 'IRQ IS LOW 


n n n o n r 

0002 yb 


BPL 


PIO006 






0002 y / 


INC 


IRQCNTR 




;BUMP FALSE IRQ COUNTER 


n n n o n o 

0002 yy 


BNE 


PIO004 






0002 yy 


INC 


IRQCNTR+1 






n n n o n n 
OOOoOO 


PIO004 JMP 


DISPATCH 






n n n o n i 
OOOoOl 


PIO006 LDA 


#0 




; SET INTERRUPT ZERO PAGE 


n n n o n o 
000J02 


STA 


Z .REG 






n n n n 
OOOoO 


LDA 


E.REG 






n n n n a 

000-304 


ORA 


#BITON7 




; FORCE 1 MHZ FOR 


n n n n c 
000o05 


STA 


E.REG 




; READING ACIA STATUS 


n n n n r 

OOOoOb 


AND 


#BITOFF7 






n n n n ^ 

000307 


LDX 


#$01 






n n n ^) n 

000308 


LDY 


ACIASTAT 




;ANY INTERRUPT ON ACIA? 


000309 


STA 


E.REG 






000310 


BMI 


PIO070 






000311 


LDA 


E.IFR 




; ANY INTERRUPT ON E-6522? 


000312 


BPL 


PIO020 




; NO 


000313 


AND 


E.IER 






000314 


LDY 


#7 






000315 


LDX 


#$02 






000316 


PIO010 LSR 


A 




/CHECK FLAG BITS 


000317 


BCS 


PIO070 






000318 


I NX 








000319 


DEY 









« Apple /// Computer • SOS 1 .3 Source Code Listing • 114 of 255 




000320 


BNE 




PIO010 






000321 


BEQ 




PIO035 






000322 


PIO020 LDA 




D . IFR 




;ANY INTERRUPT ON D-6522? 


r\ n n o n o 

000323 


BPL 




PIO035 






r\ n n o n /i 

000324 


AND 




D . IER 






000325 


BIT 




ANYSLOT 




;ANY SLOT INTERRUPT? 


r\ n n o n ^ 

000326 


BNE 




PIO040 




; YES 


000327 


LDY 




#7 






000328 


LDX 




#$09 






000329 


PIO030 LSR 




A 




; CHECK FLAG BITS 


r\ n n o o n 

000330 


BCS 




PIO070 






000331 


I NX 










r\ n n o o o 

000332 


DEY 










000333 


BNE 




PIO030 






r\ n n "3 o a 

000334 


PIO035 LDX 




#$10 




; INTERRUPT NOT FOUND 


r\ n n o o c 

000335 


BNE 




PIO050 






r\ n n o o ^ 

000336 


PIO040 LDX 




#$11 






r\ n n o ^ ~7 

000337 


BIT 




SLOT1 




; SLOT 1 ? 


r\ n n o o o 

000338 


BPL 




PIO070 






r\ n n o o rs 

000339 


INX 










000340 


BIT 




SLOT 2 




; SLOT 2 ? 


r\ n n o /i t 

000341 


BPL 




PIO070 






000342 


LDA 




E.IORA 






000343 


INX 










000344 


BIT 




SLOT 3 




; SLOT 3? 


000345 


BEQ 




PIO070 






000346 


INX 










000347 


BIT 




SLOT 4 




; SLOT 4 ? 


000348 


BEQ 




PIO070 






000349 


LDX 




#$0A 






000350 












000351 


* BAD INTERRUPT — 


SYSTEM DEATH 






000352 












n n n -3 c o 
000353 


PIO050 LDA 




#>BADINT1 




/INTERRUPT NOT FOUND 


r\ n n *3 c; /i 

000354 


JSR 




SYSDEATH 






000355 


PIO060 LDA 




#>BADINT2 




; BAD ZERO PAGE ALLOCATION 


000356 


JSR 




SYSDEATH 






000357 












000358 


* INTERRUPTING DEVICE 


FOUND 






000359 


* ALLOCATE ZERO PAGE 


AND CALL MASTER INTERRUPT HANDLER 


000360 












r\ n n *3 r *\ 

000361 


* NOTE : 










000362 


* SINCE READING THE 


ACIA'S STATUS REGISTER 


RESETS THE 


000363 


* DSR AND DCD BITS, 


THE STATUS READ BY 


THE 


POLLING 


000364 


* ROUTINE MUST BE 


PASSED TO THE INTERRUPT HANDLER; 


000365 


* THE Y REGISTER 


HAS 


BEEN SELECTED FOR 


THIS 


PURPOSE . 


000366 


* THE CURRENT IMPLEMENTATION DOES NOT USE Y 


IN CALLING 


00036 / 


* THE INTERRUPT HANDLER. IF SUBSEQUENT 


REVISIONS 


r\ n n *3 r~ o 

000368 


* NEED TO USE Y, 


THE 


STATUS MUST BE PRESERVED AND 


000369 


* RESTORED BEFORE 


CALLING THE INTERRUPT 


HANDLER. 


r\ n n *3 t n 

000370 












00 Uj / I 


CALLMIH JMP 




(IRQADDR) 






000372 












000373 


PIO070 LDA 




SIRTABLE, X 




.•INTERRUPT ALLOCATED? 


000374 


BPL 




PIO050 




; NO 


000375 


LDA 




SIRADR.L,X 




; GET INTERRUPT ADDRESS 


000376 


STA 




IRQADDR 






r\ n n *3 "~7 
0003 / / 


ORA 




SIRADR.H,X 




; CHECK FOR ADDRESS = $00 


000378 


BEQ 




PIO050 




; BAD ADDRESS 


000379 


LDA 




SIRADR.H,X 






n n n "3 o n 
000 joO 


STA 




IRQADDR+1 






000381 


LDA 




SIRADR.B,X 






000382 


STA 




B.REG 






000383 


LDA 




ZPGSTACK 




; ALLOCATE MIH ZERO PAGE 


000384 


CMP 




#ZPGSTOP+ZPGSPACE 




000385 


BCC 




PIO060 




;TOO MANY NESTED INTERRUPTS 


000386 


SBC 




#ZPGSPACE 






r\ n r\ *3 o "~7 

00038 / 


STA 




ZPGSTACK 






000388 


STA 




ZPGSP 






000389 


TAX 










000390 


JSR 




CALLMIH 




; CALL INTERRUPT HANDLER 


00U391 


SEI 










000392 


LDA 




#$00 






000393 


STA 




Z .REG 






000394 


CLC 










000395 


LDA 




ZPGSTACK 




/DEALLOCATE MIH ZERO PAGE 


000396 


ADC 




#ZPGSPACE 






000397 


STA 




ZPGSTACK 






000398 


STA 




ZPGSP 






000399 


LDA 




#BIT0N1 






000400 


STA 




D. IFR 




; CLEAR ANY SLOT INTERRUPT 
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000401 




JMP 


DISPATCH 


000402 




SBTL 


"NON-MASKABLE INTERRUPT RECEIVER 


000403 




REP 


60 


000404 








000405 




THIS IS THE NON-MASKABLE INTERRUPT RECEIVER. WHEN AN 


000406 




NMI OCCURS, THE CPU 


PASSES CONTROL TO THE NMI RECEIVER 


000407 




THROUGH THE NMI VECTOR. THE OPERATION OF THE NMI 


000408 




RECEIVER IS ESSENTIALLY THE SAME AS THE GIR EXCEPT 


000409 




THAT IT IS NOT CONCERNED WITH BRK, AND THE ONLY VALID 


000410 




SOURCE OF AN NMI IS 


THE KEYBOARD OR THE I/O DEVICE THAT 


000411 




HAS ALLOCATED THE NMI RESOURCE. 


000412 








000413 




REP 


60 


000414 








000415 








000416 




. RCVR EQU 




000417 








000418 




SAVE CPU REGISTERS 


A, X, & Y ON CURRENT STACK 


000419 








000420 




PHA 




000421 




TXA 




000422 




PHA 




000423 




TYA 




000424 




PHA 




000425 








000426 




CHECK FOR STACK OVERFLOW 


000427 








000428 




TSX 




000429 




CPX 


#$FA 


000430 




BCC 


NMI005 


000431 




LDA 


#>STKOVFL 


000432 




JSR 


SYSDEATH 


000433 


* 






000434 




SET UP INTERRUPT ENVIRONMENT: 


000435 




BINARY ARITHMETIC 


, 2 MHZ, I/O ENABLED, 


000436 




RAM WRITE ENABLED 


, PRIMARY STACK, 


000437 




AND $F000 RAM SELECTED. PRESERVE 


000438 


* 


USER STATE OF SCREEN AND RESET LOCK. 


000439 


* 






000440 


NMI005 CLD 




000441 




LDA 


E.REG 


000442 




TAX 




000443 




AND 


#BITON5+BITON4 


000444 




ORA 


#BITON6+BITON2 


000445 




STA 


E.REG 


000446 


* 






000447 


* 


IF NOT ALREADY ON PRIMARY STACK, SAVE USER'S 


000448 


* 


STACK POINTER AND SET UP SOS STACK POINTER. 


000449 


* 






000450 




TXA 




000451 




AND 


#BITON2 


000452 




BNE 


NMI010 


000453 




TXA 




000454 




TSX 




000455 




STX 


S P. SAVE 


000456 




LDX 


#>E . SAVE 


000457 




TXS 




000458 




TAX 




000459 


* 






000460 


* 


SAVE SYSTEM CONTROL 


REGISTERS E, Z, S B ON SOS STACK 


000461 


* 






000462 


NMI010 TXA 




000463 




PHA 




000464 




LDA 


Z .REG 


000465 




PHA 




000466 




LDA 


B.REG 


000467 




PHA 




000468 




LDA 


EXPNSLOT 


000469 




PHA 




000470 




BIT 


$CFFF 


000471 




BIT 


$C020 ; RESET I/O 


000472 




LDA 


#$00 


000473 




STA 


EXPNSLOT 


000474 


* 






000475 


* 


SET INTERRUPT ZERO 


PAGE 


000476 


* 






000477 




LDA 


#0 


000478 




STA 


Z .REG 


000479 


* 






000480 




SEE IF NMI IS FROM 


KEYBOARD OR I/O DEVICE 


000481 


* 
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000482 


LDA 


E . IORB 








000483 


BMI 


NMI 030 








000484 












000485 


* NMI IS FROM I/O DEVICE 










000486 












000487 


LDA 


SIRTABLE 






;NMI ALLOCATED? 


000488 


BPL 


NMI 020 








000489 


JSR 


CALLNMI 








000490 


SEI 










000491 


JMP 


DISPATCH 








000492 


CALLNMI LDA 


SIRADR. L 








000493 


STA 


NMI ADR . L 








000494 


LDA 


SIRADR. B 








000495 


STA 


B.REG 








000496 


JMP 


(NMIADR.L) 








000497 












000498 


* BAD INTERRUPT — SYSTEM 


DEATH 








000499 












000500 


NMI 020 LDA 


#>BADINT1 






;NMI NOT ALLOCATED 


000501 


JSR 


SYSDEATH 








000502 












000503 


* NMI IS FROM THE KEYBOARD 








000504 












000505 


NMI 030 LDA 


SYSBANK 








000506 


STA 


B.REG 








000507 


JSR 


KYBDNMI 








000508 


SEI 










000509 


JMP 


DISPATCH 








000510 


SBTL 


"DISPATCHER" 








000511 


REP 


60 








000512 












000513 


* THIS IS THE DISPATCHER. 


UPON COMPLETION 


ALL 


SOS CALLS 


000514 


* AND INTERRUPT HANDLERS RETURN CONTROL 


TO 


THE 


DISPATCHER. 


000515 


* ITS PURPOSE IS TO SET UP THE APPROPRIATE 


ENVIRONMENT AND 


000516 


* PASS CONTROL TO WHATEVER CODE SHOULD 


RUN 


NEXT 




000517 












000518 


* WHEN SOS IS INTERRUPTED, 


CONTROL ALWAYS RETURNS TO THE 


000519 


* INTERRUPTED CODE. HOWEVER, WHEN THE 


USER IS 


INTERRUPTED, 


000520 


* BY EITHER A SOS CALL OR 


AN INTERRUPT, 


THE DISPATCHER 


000521 


* MUST CHECK THE EVENT QUEUE. IF THERE 


IS 


AN ACTIVE EVENT 


000522 


* WITH A PRIORITY HIGHER THAN THE CURRENT EVENT 


FENCE, 


000523 


* CONTROL IS PASSED TO THE EVENT CODE. 


OTHERWISE, CONTROL 


000524 


* RETURNS TO THE INTERRUPTED CODE. 








000525 












000526 


REP 


60 








000527 












000528 


DISPATCH EQU 


* 








000529 












000530 


* DISABLE INTERRUPTS AND RESTORE 








000531 


* SYSTEM CONTROL REGISTERS B S Z 








000532 












000533 


SEI 










000534 


LDA 


E.REG 








000535 


ORA 


#BITON6 






; ENABLE I/O 


000536 


STA 


E.REG 








000537 


PLA 










000538 


JSR 


SELC800 






/RESTORE I/O SPACE 


000539 


PLA 










000540 


STA 


B.REG 








000541 


PLA 










000542 


STA 


Z .REG 








000543 












000544 


* CHECK SAVED ENVIRONMENT 


REGISTER 








000545 


* IF RETURNING TO PRIMARY 


STACK 








000546 


* THEN RESTORE E REG AND RELAUNCH SOS 








000547 


* ELSE RESET STACK POINTER S RESTORE 


E REG 




000548 












000549 


PLA 










000550 


ORA 


#BITON5 






;SET SCREEN STATE TO 


000551 


BIT 


SCRNMODE 






; CURRENT SCREEN MODE 


000552 


BMI 


DSP005 








000553 


AND 


#BITOFF5 








000554 


DSP005 TAY 










000555 


AND 


#BITON2 








000556 


BEQ 


DSP010 








000557 


STY 


E.REG 








000558 


BNE 


DSP030 








000559 


DSP010 PLA 










000560 


TAX 










000561 


TXS 










000562 


STY 


E.REG 
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000563 


* 






000564 




CHECK FOR ACTIVE EVENT WITH PRIORITY > FENCE 


000565 


* 






000566 


DSP020 LDA 


CEVPRI 


000567 




LDX 


EVQ.LINK 


000568 




CMP 


EVQ.PRI,X 


000569 




BCS 


DSP030 


000570 








000571 




PROCESS ACTIVE EVENT 


TRAP 


000572 




SAVE E, Z, B, S CALLER'S PRIORITY ON STACK THEN CALL 


000573 




EVENT. UPON RETURN, 


RESTORE PRIORITY, B, Z, & E THEN 


000574 




CHECK FOR MORE EVENTS 




000575 








000576 




LDA 


E . REG 


000577 




PHA 




000578 




LDA 


Z . REG 


000579 




PHA 




000580 




LDA 


B . REG 


000581 




PHA 




000582 




LDA 


CEVPRI 


000583 




PHA 




000584 




JSR 


DO . EVENT 


000585 




SEI 




000586 




PLA 




r\ n n it o ~7 

00058 7 




STA 


CEVPRI 


000588 




PLA 




000589 




STA 


B . REG 


000590 




PLA 




000591 




STA 


Z . REG 


000592 




PLA 




000593 




ORA 


#BITON5 ; SET SCREEN 


000594 




BIT 


SCRNMODE ; CURRENT 


000595 




BMI 


DSP025 


000596 




AND 


#BITOFF5 


000597 


DSP025 STA 


E . REG 


000598 




JMP 


DSP020 


000599 








000600 




RESTORE CPU REGISTERS 


Y, X, & A AND LAUNCH 


000601 


* 






000602 


DSP030 PLA 




000603 




TAY 




000604 




PLA 




000605 




TAX 




000606 




PLA 




000607 




RTI 




000608 




PAGE 




000609 




REP 


60 


000610 


* 






000611 


* 


THIS SUBROUTINE CALLS 


THE HIGHEST PRIORITY ACTIVE EVENT. 


000612 


* 


FIRST, IT DELINKS THE 


FIRST ENTRY ON THE ACTIVE LIST AND 


000613 


* 


LINKS IT TO THE FREE 


LIST. THEN, IT SETS UP THE BANK, 


000614 


* 


ADDRESS, ID, S STATUS 


AND CALLS THE EVENT VIA AN RTI . 


000615 


* 






000616 




REP 


60 


000617 








000618 


DO 


EVENT EQU 


* 


000619 


* 






000620 


* 


WRITE ENABLE RAM 




000621 


* 






000622 




LDY 


E.REG 


000623 




TYA 




000624 




AND 


#BITOFF3 


000625 




STA 


E.REG 


000626 








000627 


* 


DELINK ENTRY FROM ACTIVE LIST AND RELINK IT TO FREE LIST 


000628 


* 






000629 




LDX 


EVQ.LINK 


000630 




LDA 


EVQ.LINK,X 


000631 




STA 


EVQ.LINK 


000632 




LDA 


EVQ . FREE 


000633 




STA 


EVQ.LINK,X 


000634 




STX 


EVQ . FREE 


000635 








000636 




SET FENCE TO EVENT PRIORITY THEN RESTORE E REG 


000637 


* 






000638 




LDA 


EVQ.PRI,X 


000639 




STA 


CEVPRI 


000640 




STY 


E.REG 


000641 


* 






000642 


* 


SET UP B, Z, E, ADDRESS, ID, S STATUS 


000643 


* 
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000644 


LDA 


EVQ . BANK, X 


000645 


STA 


B . REG 


000646 


LDA 


E VQ . ADRH , X 


000647 


PHA 




000648 


LDA 


EVQ . ADRL , X 


000649 


PHA 




000650 


LDY 


EVQ . I D , X 


000651 


PHP 




000652 


PLA 




000653 


AND 


#582 


000654 


PHA 




000655 


TYA 




000656 


RTI 




000657 






000658 


CHN 


IPL.SRC2 


000659 






000660 




************************************************ 


000661 


* END OF APPLE /// SOS 1. 


3 SOURCE CODE FILE : IPL.SRC1 


000662 


************************************************************************* 



000663 
000664 

End of File — Lines: 664 Characters: 17425 
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FILE: "SOS. IPL.SRC2. TEXT" 



r\ n n r\ n i 

000001 


**************************************************************** 


r\ n n r\ n o 

000002 


* 


APPLE 


/// SOS 1.3 SOURCE CODE FILE: IPL.SRC2 


000003 








000004 


* 


ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 








000006 






SBTL "SYSTEM INTERNAL RESOURCES" 


00000 / 






REP 60 


r\ n n r\ n o 

000008 


* 






000009 


* 


SYSTEM INTERNAL RESOURCE NUMBERS 


000010 


* 






r\ n r\ r\ i t 

000011 


* 






000012 




SIR 


RESOURCE 


000013 








000014 







SOUND PORT / I/O NMI 


000015 


* 


I 


AC I A 


000016 


* 


2 


E . CA2 — KEYBOARD 


000017 


* 


3 


E . CA1 — CLOCK 


000018 


* 


4 


E . SR 


000019 




5 


E . CB2 — VBL + 


000020 


* 


6 


E.CB1 — VBL - 


000021 




7 


E.T2 


000022 




8 


E.T1 


000023 




9 


D.CA2 — CSP INPUT FLAG / INPUT SWITCH 1 


000024 


* 


A 


D.CA1 — ANY SLOT (RESERVED FOR SOS) 


r\ r\ r\ r\ *~> c 

000025 


* 


B 


D.SR — CSP DATA REGISTER 


r\ r\ r\ r\ r 

000026 


* 


C 


D.CB2 — CSP DATA I/O / ENSIO 


000027 


* 


D 


D.CB1 — CSP CLOCK / ENSEL / A/D SELECT / INPUT SW3 


r\ r\ r\ r\ *~> n 

000028 




E 


D.T2 


000029 




F 


D.T1 


000030 




10 


DISK STEPPER / GRAPHICS SCROLL / CHARACTER DOWNLOAD 


000031 




11 


SLOT 1 


000032 


* 


12 


SLOT 2 


r\ n r\ r\ o o 

000033 


* 


13 


SLOT 3 


r\ n n r\ o /i 

000034 


* 


14 


SLOT 4 


000035 


* 


15 


(UNASSIGNED) 


000036 


* 


16 


(UNASSIGNED) 


00003 / 




17 


(UNASSIGNED) 


000038 


* 






000039 






REP 60 


000040 






SBTL "RESOURCE ALLOCATION S DEALLOCATION" 


000041 






REP 60 


000042 


* 






000043 


* 


RESOURCE ALLOCATION AND DEALLOCATION 


000044 


* 






000045 


* 


SIRS ARE ALLOCATED AND DEALLOCATED BY THE SUBROUTINES 


000046 




'ALLOCSIR' AND 'DEALCSIR'. THE RESOURCE PARAMETERS ARE 


000047 




PASSED IN A TABLE THAT CONTAINS ONE FIVE-BYTE ENTRY FOR 


000048 




EACH SIR THAT IS TO BE ALLOCATED OR DEALLOCATED. THE 


000049 




TABLE ENTRY FORMAT IS SHOWN BELOW: 


000050 


* 






000051 


* 




12 3 4 


000052 


* 






000053 


* 




SIR # 1 ID | ADR.L | ADR.H | ADR.B 


000054 


* 






r\ n n r\ c it 

000055 


* 






000056 


* 


SIR 


# — SYSTEM INTERNAL RESOURCE NUMBER 


000057 




ID 


— IDENTIFICATION BYTE 


000058 


* 




SUPPLIED BY ALLOCSIR, CHECKED BY DEALCSIR 


000059 


* 


ADR 


— INTERRUPT ADDRESS (LOW, HIGH, BANK) 


000060 


* 




ZERO IF NO INTERRUPT HANDLER 


r\ n n r\ ^ t 








000062 


* 






000063 


* 


ALLOCSIR — ALLOCATE SYSTEM INTERNAL RESOURCES 


000064 


* 






000065 


* 


PARAMETERS : 


000066 


* 




A: NUMBER OF BYTES IN TABLE 


000067 


* 




X: TABLE ADDRESS (LOW BYTE) 


000068 


* 




Y: TABLE ADDRESS (HIGH BYTE) 


000069 


* 






000070 


* 


NORMAL EXIT — SIRS ALLOCATED 


000071 


* 




CARRY : CLEAR 


000072 


* 




A, X, Y: UNDEFINED 


000073 


* 






000074 


* 


ERROR EXIT — SIRS NOT ALLOCATED 


000075 






CARRY: SET 


000076 


* 




X: SIR NUMBER 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



A, Y: UNDEFINED 



EALCSIR — DEALLOCATE SYSTEM INTERNAL RESOURCES 

PARAMETERS : 

A: NUMBER OF BYTES IN TABLE 
X: TABLE ADDRESS (LOW BYTE) 
Y: TABLE ADDRESS (HIGH BYTE) 

NORMAL EXIT — SIRS DEALLOCATED 
CARRY : CLEAR 
A, X, Y: UNDEFINED 

ERROR EXIT — SIRS NOT DEALLOCATED 
CARRY: SET 
X: SIR NUMBER 
A, Y: UNDEFINED 



ASIR010 



ASIR020 
ASIR030 



REP 
PAGE 

DFB 

EQU 
CLC 
PHP 
SEI 
STA 
LDA 
STA 
ORA 
AND 
STA 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
STX 
STY 

LDY 
LDA 
CMP 
TAX 
BCS 
LDA 
BMI 
LDA 
STA 
I NY 
STA 
I NY 
LDA 
STA 
I NY 
LDA 
STA 
I NY 
LDA 
STA 
I NY 
CPY 
BCC 

CLC 
INC 
BMI 
LDA 
STA 
BMI 

STX 
SEC 
TYA 
SBC 
TAY 
BCC 
LDA 



60 



$81 



SIRARGSIZ 

E.REG 

SIRTEMP 

#BITON2 

#BITOFF3 

E.REG 

SIRTEMP 

Z .REG 

#500 
Z .REG 

SIRARGS 
SIRARGS+1 

#$00 

(SIRARGS) , Y 
#SIRTBLSIZ 

ASIR020 
SIRTABLE, X 
ASIR020 
IDBYTE 
SIRTABLE, X 

(SIRARGS) , Y 

(SIRARGS) , Y 
SIRADR.L,X 

(SIRARGS) , Y 
SIRADR.H,X 

(SIRARGS) , Y 
SIRADR.B,X 

SIRARGSIZ 
ASIR010 



IDBYTE 

SIREXIT 

#$81 

IDBYTE 

SIREXIT 



#5 



ASIR040 
(SIRARGS) , Y 



;SAVE TABLE SIZE 



; FORCE PRIMARY STACK 
; AND WRITE ENABLE 



;SET ZERO PAGE := $00 
;SET POINTER TO TABLE 

; GET SIR NUMBER 

; CHECK ALLOCATION 

; ALLOCATE SIR 
/RETURN ID BYTE 

/SAVE INTERRUPT ADDRESS 



;BUMP ID BYTE 



;SAVE BAD SIR NUMBER 



; GET SIR NUMBER 
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000158 


TAX 






000159 


LDA 


# FALSE 




000160 


STA 


SIRTABLE, X 


/RELEASE ALLOCATED SIRS 


000161 


BEQ 


ASIR030 




000162 








000163 


ASIR040 LDX 


SIRTEMP 


/RETURN BAD SIR 


000164 


SEC 






000165 








000166 








000167 








000168 


SIREXIT PLA 






000169 


STA 


Z .REG 


/RESTORE Z REGISTER 


000170 


PLA 






000171 


STA 


E . REG 


/RESTORE E REGISTER 


000172 


BCC 


SIREXIT1 




000173 


PLA 






000174 


ORA 


#BITON0 




000175 


PHA 






000176 


SIREXIT1 PLP 






000177 


RTS 






000178 








000179 








000180 








000181 


DEALCSIR EQU 






000182 


CLC 






000183 


PHP 






000184 


SEI 






000185 


STA 


SIRARGSIZ 


; SAVE TABLE SIZE 


000186 


LDA 


E . REG 




000187 


STA 


SIRTEMP 




000188 


ORA 


#BITON2 


/ FORCE PRIMARY STACK 


000189 


AND 


#BITOFF3 


AND WRITE ENABLE 


000190 


STA 


E .REG 




000191 


LDA 


SIRTEMP 




000192 


PHA 






000193 


LDA 


Z . REG 




000194 


PHA 






000195 


LDA 


#$00 




000196 


STA 


Z . REG 


/SET ZERO PAGE := $00 


000197 


STX 


SIRARGS 




000198 


STY 


SIRARGS+1 


/SET POINTER TO TABLE 


000199 








000200 


LDY 


#$00 




000201 


DSIR010 LDA 


(SIRARGS) , Y 


/GET SIR NUMBER 


000202 


TAX 






000203 


CPX 


#SIRTBLSIZ 




000204 


BCS 


DSIR030 




000205 


I NY 






000206 


LDA 


SIRTABLE, X 




000207 


BPL 


DSIR030 


/VERIFY ALLOCATION 


000208 


CMP 


(SIRARGS) , Y 




000209 


BNE 


DSIR030 




000210 


I NY 






000211 


I NY 






000212 


I NY 






000213 


I NY 






000214 


CPY 


SIRARGSIZ 




000215 


BCC 


DSIR010 




000216 








000217 


LDY 


SIRARGSIZ 




000218 


DSIR020 SEC 






000219 


TYA 






000220 


SBC 


#5 




000221 


TAY 






000222 


BCC 


SIREXIT 




000223 


LDA 


(SIRARGS) , Y 


/GET SIR NUMBER 


000224 


TAX 






000225 


LDA 


# FALSE 




000226 


STA 


SIRTABLE, X 




r\ n n o n -i 

00022 7 


BEQ 


DSIR020 




000228 








000229 


DSIR030 SEC 






000230 


BCS 


SIREXIT 




000231 


SBTL 


"SELECT I/O EXPANSION 


ROM" 


000232 


REP 


60 




000233 


-k 






000234 


* SUBROUTINE 1 SELC800 


' IS CALLED TO SELECT THE 


C800 I/O EX- 


000235 


* PANSION ADDRESS SPACE FOR A PERIPHERAL SLOT. 


ON ENTRY, 


000236 


* THE SLOT NUMBER IS 


PASSED IN THE ACCUMULATOR. 


IF NO 


000237 


* ERROR OCCURS, CARRY 


IS CLEARED; OTHERWISE, CARRY IS SET 


000238 


* AND THE PREVIOUS SLOT REMAINS SELECTED. 
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000239 
















000240 




PARAMETERS : 












000241 




A: SLOT NUMBER 












000242 
















000243 




NORMAL EXIT — NEW 


SLOT 


SELECTED 








000244 




CARRY : CLEAR 












000245 




A: UNDEFINED 












000246 




X, Y: UNCHANGED 












000247 
















000248 




ERROR EXIT — SLOT 


NOT 


CHANGED 








000249 


* 


CARRY : SET 












000250 


* 


A, X, Y: UNCHANGED 










000251 


* 














000252 


* 


WARNING ! ! ! 












000253 


* 


' SELC800 ' USES SELF-MODIFYING CODE! 








000254 


* 














000255 




REP 




60 








000256 


* 














000257 


SELC800 EQU 




-k 








000258 




CMP 




#$05 






; CHECK SLOT NUMBER 


000259 




BCS 




SC8EXIT 






INVALID 


000260 




PHP 












000261 




SEI 












000262 




STA 




EXPNSLOT 








m n r\ n r o 

0002 63 




ORA 




#$C0 






;MAKE SLOT INTO $CN00 


0002 64 




STA 




CNADDR+2 






; AND MODIFY BIT ADDRESS 


0002 65 




BIT 




$C020 








000266 




BIT 




SCFFF 






/DESELECT PREVIOUS SLOT 


000267 


CNADDR BIT 




$C0FF 






; AND SELECT CURRENT SLOT 


000268 




PLP 












000269 


SC8EXIT RTS 












000270 




SBTL 




"NMI DISABLE / 


ENABLE 




000271 




REP 




60 








r\ n r\ n ~? o 

000272 


* 














000273 




THE SUBROUTINES NMIDSBL 


AND NMIENBL ARE 


CALLED TO 


000274 




DISABLE AND ENABLE 


NMI, 


RESPECTIVELY. 


THERE 


ARE NO 


000275 


* 


INPUT PARAMETERS. 


ON EXIT, THE REGISTERS 


ARi 


UN- 


000276 




DEFINED. NMIDSBL CLEARS THE CARRY FLAG 


Il- 


NMI WAS 


000277 


* 


SUCCESSFULLY DISABLED; 


OTHERWISE, CARRY 


IS 


SET. 


000278 


* 














000279 




REP 




60 








000280 


* 














000281 


NMIDSBL EQU 












000282 




LDX 




E.REG 








000283 




BIT 




NMI FLAG 








000284 




BPL 




NDS020 








000285 




TXA 












000286 




ORA 




#BITON7 








000287 




STA 




E.REG 






;SET 1MHZ 


000288 




LDA 




#$00 








000289 




STA 




NMICNTR 








000290 




STA 




NMICNTR+1 








000291 


NDS010 BIT 




NMI FLAG 






;NMI PENDING? 


000292 




BPL 




NDS020 






; NO 


000293 




INC 




NMICNTR 






;BUMP NMI COUNTER 


000294 




BNE 




NDS010 






; AND RECHECK NMI FLAG 


000295 




INC 




NMICNTR+1 








000296 




BNE 




NDS010 








000297 




LDA 




#>NMIHANG 






; CAN'T LOCK NMI 


000298 




JSR 




SYSDEATH 








000299 


NDS020 TXA 










; GET E.REG 


000300 




AND 




#BITOFF4 






; DISABLE NMI 


000301 




STA 




E.REG 








000302 




RTS 












000303 


* 














000304 


* 














000305 


* 














000306 


NMIENBL EQU 




* 








000307 




LDA 




E.REG 








000308 




ORA 




#BITON4 






/ENABLE NMI 


000309 




STA 




E.REG 








00U31U 




RTS 












000311 




SBTL 




"KEYBOARD NMI HANDLER 




000312 




REP 




60 








000313 


* 














000314 


* 


BY DEFAULT, KEYBOARD NMI IS IGNORED. THE 


USER MAY 


000315 


* 


PROCESS NMI BY CHANGING 


THE ADDRESS IN 


SYSTEM 


GLOBAL . 


000316 


* 














000317 




REP 




60 








000318 
















000319 


NMIDBUG EQU 




* 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



TSX 
STX 
LDA 
STA 
LDA 
ORA 
STA 
JSR 

EQU 

LDA 

ORA 

STA 

LDX 

TXS 

RTS 

SBTL 

REP 



NMISPSV 

#$03 

Z .REG 

E.REG 

#$03 

E.REG 

$F901 



E.REG 

#BITON2 

E.REG 

NMISPSV 



;SAVE THE STACK POINTER 

; SELECT MONITOR'S ZERO PAGE 

; SELECT MONITOR ROM 
; CALL THE MONITOR 

; FORCE PRIMARY STACK 
; RESTORE STACK POINTER 



"EVENT QUEUE MANAGER" 

60 



THE EVENT QUEUE IS USED TO HOLD THE PARAMETERS OF EVENTS 
THAT HAVE BEEN DETECTED BUT NOT YET RECOGNIZED. EVENT 
QUEUE ENTRIES ARE ORGANIZED INTO TWO LINKED LISTS; A FREE 
LIST AND AN ACTIVE LIST. EACH ENTRY IS SIX BYTES LONG, 
WITH THE FIRST BYTE (BYTE 0) USED AS A LINK. THE LINK 
BYTE CONTAINS THE TABLE INDEX OF THE NEXT ENTRY IN THE 
LIST. BECAUSE OF THE INDEXING METHOD, THE EVENT QUEUE 
MUST NOT EXCEED 256 BYTES. 

ENTRY ZERO IS A SPECIAL ENTRY. BYTE IS THE INDEX OF 
THE FIRST ACTIVE ENTRY; BYTE 1 CONTAINS A ZERO, ALLOWING 
ENTRY TO BE USED AS THE ACTIVE EVENT LIST TERMINATER; 
BYTE 2 CONTAINS THE INDEX OF THE FIRST FREE ENTRY; AND 
BYTES 4 THROUGH 6 ARE UNUSED. 

THE FREE LIST IS LINKED LIFO. THE ONLY VALID BYTE IN A 
FREE ENTRY IS THE LINK BYTE; THE REMAINING BYTES ARE 
UNDEFINED. THE FREE LIST IS TERMINATED BY A LINK BYTE 
CONTAINING A ZERO. 

THE ACTIVE LIST IS LINKED IN DECREASING PRIORITY ORDER 
WITH ENTRIES OF EQUAL PRIORITY LINKED FIFO. BYTES 1 
THROUGH 5 CONTAIN THE EVENT PRIORITY, EVENT ID, LOW BYTE 
OF THE EVENT ADDRESS, HIGH BYTE OF THE EVENT ADDRESS, AND 
THE ADDRESS BANK. THE ACTIVE LIST IS TERMINATED BY AN 
ENTRY WITH AN EVENT PRIORITY OF ZERO. 



REP 

PAGE 

REP 



60 



60 



SUBROUTINE ' QUEEVENT ' IS USED TO ENTER AN EVENT INTO THE 
EVENT QUEUE. ACTIVE EVENTS ARE LINKED IN DECREASING 
PRIORITY ORDER WITH EVENTS OF EQUAL PRIORITY LINKED FIFO. 
EVENTS ARE REMOVED FROM THE QUEUE AS THEY ARE RECOGNIZED 
BY THE DISPATCHER. 

PARAMETERS : 

X: EVENT PARAMETER ADDRESS (LOW BYTE) 
Y: EVENT PARAMETER ADDRESS (HIGH BYTE) 



EVENT 
PARMS : 



I 



12 3 4 

+ + + + 

PRI | ID | ADR. L | ADR. H I ADR.B 



-+- 



-+- 



PRI: EVENT PRIORITY 
ID: EVENT ID BYTE 

ADR: EVENT ADDRESS (LOW, HIGH, BANK) 



EXIT CONDITIONS: 
CARRY : CLEAR 
A, X, Y: UNDEFINED 



QUEEVENT 



REP 

EQU 
CLC 
PHP 
SEI 
LDA 
STA 
ORA 



60 



E.REG 

QEVTEMP 

#BITON2 



; FORCE PRIMARY STACK 
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n n n a n i 
000401 




AND 


#BITOFF3 


; AND WRITE ENABLE 


000402 




STA 


E . REG 




n n n /i n o 

000403 




LDA 


QEVTEMP 




000404 




PHA 






000405 




LDA 


Z . REG 




n n n t\ r\ r 

000406 




PHA 






000407 




LDA 


#0 




000408 




STA 


Z . REG 


; SET ZERO PAGE : = 


000409 










000410 




STX 


QEVARGS 




000411 




STY 


QEVARGS+1 


; SET ARGUMENT POINTER 


000412 




LDY 


#0 




00041 j 




LDA 


(QEVARGS) , Y 


; GET PRIORITY 


000414 




BEQ 


Q . EXIT 


; IGNORE IF ZERO 


000415 










n n n /i i /~ 

000416 




LDX 


EVQ . FREE 




000417 




BEQ 


Q . FULL 




000418 




STX 


QEV. THIS 


; GET FIRST FREE ENTRY 


000419 




LDA 


EVQ . LINK, X 


; AND DELINK IT 


000420 




STA 


EVQ . FREE 




000421 










n n n /i n n 
UU U4ZZ 




LDY 


# EVQ . S I Z - 2 




n n n /i n o 

000423 


QEV010 


LDA 


(QEVARGS) , Y 


;COPY ARGUMENTS 


000424 




STA 


EVQ . BANK, X 


; INTO NEW ENTRY 


000425 




DEX 






000426 




DEY 






UU04z / 




BPL 


QEV0 1 




000428 










000429 




LDX 


QEV. THIS 




n n n a on 

0004 30 




LDY 


#0 




n n n /i o t 

000431 


QEV020 


STY 


QEV . LAST 




n n n /i on 

000432 




LDA 


EVQ . LINK, Y 




000433 




TAY 






000434 




LDA 


EVQ . PRI , Y 


; SCAN EVENT QUEUE 


000435 




CMP 


EVQ . PRI , X 


; FOR PROPER POSITION 


000436 




BCS 


QEV020 




000437 










000438 




TYA 






000439 




STA 


EVQ . LINK, X 


,* RELINK EVENT INTO QUEUE 


000440 




TXA 






000441 




LDY 


QEV. LAST 




000442 




STA 


EVQ . LINK, Y 




000443 










000444 


Q . EXIT 


PLA 






000445 




STA 


Z . REG 


;RESTORE Z REGISTER 


000446 




PLA 






000447 




STA 


E . REG 


/RESTORE E REGISTER 


000448 




PLP 






000449 




RTS 






000450 










000451 


Q . FULL 


LDA 


#>EVQOVFL 


; EVENT QUEUE OVERFLOW 


000452 




JSR 


SYS DEATH 




000453 




LST 


ON 




000454 










000455 


ZZEND 


EQU 






000456 


ZZLEN 


EQU 


ZZEND-ZZORG 




000457 




IFNE 


ZZLEN-LENIPL 




000458 




FAIL 


2, "SOSORG 


FILE IS INCORRECT FOR IPL 


000459 




FIN 






000460 










000461 


*************** 








000462 


* END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE 


I PL . SRC2 


000463 


*************** 






***************************** 


000464 










000465 











End of File — Lines: 465 Characters: 12364 
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FILE : "SOS. LC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: LC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



IFNE 
FAIL 
FIN 



ZZLEN-LEN???? 
2, "SOSORG 



FILE IS INCORRECT FOR ??????" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: LC 

************************************************************************* 



End of File — Lines: 13 Characters: 549 
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FILE : "SOS. LCHK. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: LCHK 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 INCLUDE SOSORG, 6, 1, 254 

000007 ORG ??????? 

000008 

000009 IFNE ZZLEN-LEN???? 

000010 FAIL 2, "SOSORG FILE IS INCORRECT FOR ?????? 

000011 FIN 
000012 

000013 ************************************************************************* 

000014 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: LCHK 

000015 ************************************************************************* 
000016 



End of File -- Lines: 16 Characters: 643 
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FILE : "SOS .MEMMGR. A . SRC . TEXT 



000001 


******************************************************** 






000002 


* APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR. A. 


SRC 






000003 








************************** 






000004 


* ASSEMBLER: APPLE ] [ 65 


02 ASSEMBLER from APPLE 


COMPUTER TOOLKIT 






000005 
















000006 


SBTL 


"SOS 1.1 MEMORY 


MANAGER" 






000007 


REL 














000008 


INCLUDE 


SOSORG, 6,1,254 












000009 


ORG 


ORGMEMMG 












000010 


ZZORG EQU 














000011 


MSB 


OFF 












000012 


REP 


60 












000013 


* COPYRIGHT (C) 


APPLE COMPUTER INC 


1980 






000014 


* ALL 


RIGHTS RESERVED 












000015 


REP 


60 












000016 


* 














000017 


* MEMORY MANAGER (VERSION =1.10 ) 












000018 


* ( DATE 


= 8/04/81) 












000019 


* 














000020 


* THIS MODULE CONTAINS ALL OF THE MEMORY MANAGEMENT SYSTEM 






000021 


* CALLS SUPPORTED BY THE 


SARA OPERATING SYSTEM. 




IT IS 






000022 


* ALSO CALLED BY THE BUFFER MANAGER. 












000023 
















000024 


REP 


60 












000025 
















000026 


T7"NTTD\7 

fcjNlKl 


JYJMGK 












000027 
















000028 


ENTRY 


ST . CNT 












000029 


ENTRY 


ST . ENTRY 












000030 


ENTRY 


ST . FREE 












000031 


ENTRY 


ST . FLINK 












000032 


ENTRY 


VRT . LIM 












000033 
















000034 


EXTRN 


SYSERR 












000035 


EXTRN 


BADSCNUM 












000036 


EXTRN 


BADBKPG 












000037 


EXTRN 


SEGRQDN 












000038 


EXTRN 


SEGTBLFULL 












000039 


EXTRN 


BADSEGNUM 












000040 


rliA 1KN 


OEibWUl r 1MLJ 












000041 


EXTRN 


BADSRCHMODE 












000042 


EXTRN 


BADCHGMODE 












000043 


EXTRN 


BADPGCNT 












000044 


PAGE 














000045 


REP 


60 












000046 


* 














000047 


* SEGMENT TABLE 














000048 


* (NOTE: ENTRY IS NOT 


USED) 












000049 
















000050 


REP 


60 












000051 
















000052 


ST . FREE DS 


1 






PTR TO FIRST FREE SEG TABLE ENTRY 




000053 


ST. ENTRY DS 


1 






PTR TO HIGHEST ALLOC SEG TABLE ENTRY 


000054 


ST.SIZ EQU 


7 












000055 


ST.CNT EQU 


32 












000056 


ST.TBL DS 


ST.SIZ*ST.CNT 












000057 


ST. BLINK EQU 


ST.TBL 






BACK LINK TO PREV ALLOC 


SEG ENTRY 




000058 


ST.FLINK EQU 


ST . BLINK+ST . CNT 






FORWARD LINK 






000059 


ST. BASEL EQU 


ST . FLINK+ST . CNT 






BASE BANK/ PAGE 






000060 


ST.BASEH EQU 


ST . BASEL+ST . CNT 












000061 


ST.LIML EQU 


ST . BASEH+ST . CNT 






LIMIT BANK/ PAGE 






000062 


ST.LIMH EQU 


ST.LIML+ST.CNT 












000063 


ST. ID EQU 


ST.LIMH+ST.CNT 






SEG ID 






000064 


PAGE 














000065 


REP 


60 












000066 
















000067 


* DATA DECLARATIONS 














000068 
















000069 


REP 


60 












000070 
















000071 


ZPAGE EQU 


$40 






BEGINNING OF ZPAGE TEMP 


SPACE FOR 


MEMORY MANAGER 


000072 


VRT . BASE EQU 


$0 






INTERNAL BK/PG PTR TO LOWEST VIRT 


PAGE 


000073 


VRT.LIM EQU 


ZPAGE+$0 






S$l, INTERNAL BK/PG PTR 


TO HIGHEST 


VIRT PAGE 


000074 


PHY1BASE EQU 


$0780 






BANK "F" , PAGE "0" 






000075 


PHY1LIM EQU 


$079F 






BANK "F" , PAGE "IF" 






000076 


PHY2BASE EQU 


$0820 






BANK "10", PAGE "AO" 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



PHY2LIM 




EQU 


$087F 


BANK "10", PAGE "FF" 


* REQUEST. 


SEG 


DATA DECLARATIONS 




M. TPARMX 




EQU 


$60 


BEGINNING ADDRESS OF MMGR SOS CALL PARMS 


M.RQCODE 




EQU 


M. TPARMX 




RQ.BASE 




EQU 


M.TPARMX+1 


BASE . BANK/PAGE 


RQ.LIM 




EQU 


M.TPARMX+3 


LIMIT . BANK/ PAGE 


RQ.ID 




EQU 


M.TPARMX+5 




RQ.NUM 




EQU 


M.TPARMX+6 




RQ. REGION 




EQU 


ZPAGE+$2 


VRT ( ) , PHY0 f 1 ) , PHY1 ( 2 ) 


* FIND . SEG DATA DECLARATIONS 




SRCHMODE 




EQU 


M.TPARMX+1 


SEAKGn MODE ( U , 1 r Z ) 


F. ID 




EQU 


M.TPARMX+2 


SEG ID 


F . PGCT 




EQU 


M.TPARMX+3 


PAGE COUNT ( LO 


FX . PGCT 




EQU 


ZPAGE+$3 


&94, 1N1EKNAL PAGE GOUN1 


F . BASE 




EQU 


M.TPARMX+5 


BASE . BANK/ PAGE 


F.LIM 




EQU 


M.TPARMX+7 


LIMIT . BANK/ PAGE 


F.NUM 




EQU 


M.TPARMX+9 


SEG NUM 


F.ERR 




EQU 


ZPAGE+$5 


ERROR FLAG 


TRUE 




EQU 


$80 




FALSE 




EQU 


$0 




CFS.PGCT 




EQU 


ZPAGE+$6 


&7, CURRENT FREE SEGMENT'S PAGE COUNT 


CFS.BASE 




EQU 


ZPAGE+$8 


&9, " BASE . BANK/ PAGE 


CFS.LIM 




EQU 


ZPAGE+$A 


&9B, L±M± 1 . BANK/ PAGE 


CFS. BLINK 




EQU 


ZPAGE+$C 


BACK LINK 


CFS.BASEO 




EQU 


ZPAGE+$D 


S$E, " BASE (SMODE=0) 


CFS.BASE1 




EQU 


ZPAGE+$F 


S$10, " BASE (SMODE=l) 


CFS. NEXT 




EQU 


ZPAGE+$11 


NEXT ENTRY 


CFS . PREV 




EQU 


ZPAGE+$12 


" PREV ENTRY 


CFS.PTR 




EQU 


ZPAGE+$13 


&$14 " POINTER TO NXT FREE 


BFS.PGCT 




EQU 


ZPAGE+$15 


&$16, BIGGEST FREE SEGMENT'S PAGE COUNT 


BFS . BASE 




EQU 


ZPAGE+$17 


&$18 " BASE . BANK/ PAGE 


BFS.LIM 




EQU 


ZPAGE+$19 


S$1A " LIMIT. BANK/PAGE 


BFS. BLINK 




EQU 


ZPAGE+$1B 


BACK LINK 


* CHANGE. SEG DATA DECLARATIONS 




CHG.NUM 




EQU 


M.TPARMX+1 


SEGNUM PARM 


CHG.MODE 




EQU 


M.TPARMX+2 


CHANGE MODE PAKM 


CHG. PGCT 




EQU 


M.TPARMX+3 


PAGE COUNT PARM 


CHG. PGCTX 




EQU 


ZPAGE+$1C 


S$1D, INTERNAL STORE FOR PGCT 


CHG. NEW 




EQU 


ZPAGE+$1E 


S$1F, BANK/PAGE OF SEG'S NEW LIMIT OR BASE 


* GET. SEG. 


INFO DATA 


DECLARATIONS 




GSI .NUM 




EQU 


M.TPARMX+1 




GSI.BASE 




EQU 


M.TPARMX+2 




GSI.LIM 




EQU 


M.TPARMX+4 




GSI . PGCT 




EQU 


M.TPARMX+6 




GSI . ID 




EQU 


M.TPARMX+8 




* GET. SEG. 


NUM 


DATA DECLARATIONS 




GSN.BKPG 




EQU 


M.TPARMX+1 




GSN.NUM 




EQU 


M.TPARMX+3 




* RELEASE. 


SEG 


DATA DECLARATIONS 




RLS.NUM 




EQU 


M.TPARMX+1 


SEG NUM 


* REGION - 


DATA DECLARATIONS 




RGN.BKPG 




DS 


2 


TEMP CONTAINER FOR BANK/PAGE 






PAGE 










REP 


60 





MMGR 



THIS ROUTINE IS THE MAIN ENTRANCE TO THE MEMORY MANAGER 
MODULE. IT FUNCTIONS AS A SWITCH, BASED UPON THE RECEIVED 
REQUEST CODE, TO TRANSFER CONTROL TO THE ROUTINE THAT 
HANDLES THE SPECIFIC SYSTEM CALL. 



EQU 
LDA 



60 



M.RQCODE 
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000158 




BEQ 


MMGR0 1 ; 


"REQ . SEG" 


000159 




CMP 


#1 




000160 




BEQ 


MMGR020 ; 


"FIND. SEG" 


n n r\ *\ r *\ 

000161 




CMP 


#2 




000162 




BEQ 


MMGR0 3 ; 


"CHANGE . SEG" 


n n n *\ r o 

00016 3 




CMP 


#3 




n n n i r a 
000164 




BEQ 


MMGR0 40 ; 


"GET . SEG . INFO" 


000165 




CMP 


#4 




000166 




BEQ 


MMGR0 5 ; 


"GET . SEG. NUM" 


000167 




CMP 


#5 




000168 




BEQ 


MMGR0 6 ; 


"RELEASE . SEG" 


n n n *\ r c\ 

000169 


* 








n n n *\ ~i r\ 

000170 




LDA 


#BADSCNUM 




000171 




JSR 


SYSERR 




n n r\ i ~? n 

000172 


* 








0001 / J 


MMGR010 JMP 


REQ . SEG 




000174 


MMGR020 JMP 


FIND. SEG 




000175 


MMGR030 JMP 


CHG.SEG 




000176 


MMGR040 JMP 


GET. SEG. INFO 




000177 


MMGR050 JMP 


GET . SEG . NUM 




000178 


MMGR060 JMP 


RELEASE . SEG 




000179 




PAGE 






n n n i on 

000180 




REP 


60 




n n n i n t 

000181 


* 








n n n i no 

000182 


* 


REQUEST. SEG (IN. BASE. BANKPAGE, LIMIT. BANKPAGE, SEGID; OUT.SEGNUM) 


000183 


* 








000184 




REP 


60 




000185 










000186 


REQ.SEG EQU 


* 




000187 


* 








n n n i o o 
000188 


* 


CONVERT CALLER'S BASE. 


BANK/PAGE TO INTERNAL FMT 




n n n i on 

000189 


* 








n n n i n n 

000190 




LDX 


RQ . BASE 




n n n i n i 

000191 




LDY 


RQ.BASE+1 




000192 




JSR 


CNVRT . IBP 




000193 




BCC 


RQ005 




000194 










n n n i n it 

0001 95 


RQ.ERR RTS 




ERR EXIT - INVALID BANK/ 


000196 


* 








n n n i n t 
00019 / 


RQ005 STX 


RQ . BASE 




n n n i no 

000198 




STY 


RQ.BASE+1 




000199 




STA 


RQ. REGION 




r\ r\ r\ *~) r\ r\ 

000200 


* 








000201 




CONVERT CALLER'S LIMIT 


.BANK/ PAGE TO INTERNAL FMT 


000202 


* 








000203 




LDX 


RQ.LIM 




000204 




LDY 


RQ.LIM+1 




000205 




JSR 


CNVRT . IBP 




n n n o n r 

000206 




BCS 


RQ . ERR 


ERR - INVALID BANK/PAGE 


r\ r\ r\ ^) r\ "i 

000207 




STX 


RQ.LIM 




r\ r\ r\ *~) r\ n 

000208 




STY 


RQ.LIM+1 




000209 










000210 




IF BASE AND LIMIT ARE 


IN DIFFERENT REGIONS THEN 


ERR 


000211 










000212 




CMP 


RQ. REGION 




000213 




BNE 


RQ . ERR1 


ERR - INVALID BANK/PAGE 


000214 


* 


IF CALLER'S BASE > LIMIT THEN ERR 




n n n o i c 

000215 


* 








n n n n i r 

000216 




LDA 


RQ.LIM 




000217 




CMP 


RQ . BASE 




n n n n i o 

000218 




LDA 


RQ.LIM+1 




000219 




SBC 


RQ.BASE+1 




000220 




BCC 


RQ . ERR1 


ERR - INVALID BANK/PAGE 


000221 










000222 




PREV SEGNUM : —NULL ; NEXT SEGNUM: —FIRST ENTRY 




000223 


* 








n n n o n /i 

000224 




LDX 


#0 




n n n o n c 

000225 




LDY 


ST. ENTRY 


NOTE: PREV/NEXT CARRIED 


n n n o n 

000226 


* 








n n n o n ^7 

00022 7 


* 


IF NO SEGS IN SEG TABLE THEN ALLOCATE REQUESTED 


SEG 


000228 


* 








n n no i o 
UU U^iz y 




BEQ 


RQ030 




000230 










000231 




IF FIRST SEG IN SEG TABLE BELOW REQUESTED SEG 




000232 


* 


THEN ALLOCATE SEG 






000233 


* 








000234 




LDA 


ST.LIML, Y 




000235 




CMP 


RQ . BASE 




000236 




LDA 


ST . LIMH, Y 




000237 




SBC 


RQ.BASE+1 




000238 




BCC 


RQ030 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



ADVANCE TO NEXT SEG ENTRY 



RQ010 



TYA 
TAX 
LDA 
TAY 



ST . FLINK, Y 



IF THERE IS NO NEXT SEG ENTRY 

IF REQUESTED SEG IS BELOW PREV SEG 
THEN ALLOCATE REQ SEG 
ELSE ERR 



BNE 
LDA 
CMP 
LDA 
SBC 
BCC 



RQ020 

RQ.LIM 

ST. BASEL, 

RQ.LIM+1 

ST.BASEH, 

RQ030 

RQ.ERR2 



; ERR - SEGMENT REQUEST DENIED 



IF REQUESTED LIMIT >= PREV SEG'S BASE THEN ERR 



RQ020 



LDA 
CMP 
LDA 
SBC 
BCS 



RQ.LIM 
ST. BASEL, X 
RQ.LIM+1 
ST.BASEH,X 
RQ . ERR2 



ERR - SEGMENT REQUEST DENIED 



IF REQUESTED BASE > NEXT SEG'S LIMIT 
THEN ALLOCATE REQUESTED SEGMENT 



RQ030 



LDA 
CMP 
LDA 
SBC 
BCS 

TXA 
JSR 
BCS 



ST. L_ML, Y 
RQ . BASE 
ST.LIMH, Y 

RQ.BASE+1 
RQ010 



GET . FREE 
RQ . ERR3 



NO, ADVANCE TO NEXT SEGMENT 
ALLOCATE REQUESTED SEGMENT 
ERR - SEG TABLE FULL 



ENTER BASE, LIMIT AND ID IN NEW SEG ENTRY 



TAX 

LDA 
STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 

LDA 
STA 



RQ . BASE 
ST. BASEL, X 
RQ.BASE+1 
ST.BASEH,X 

RQ.LIM 
ST.LIML,X 
RQ.LIM+1 
ST.LIMH,X 

RQ. ID 
ST.ID,X 



* RETURN NEW SEG NUM TO CALLER AND RETURN 
#0 



RQ . ERR1 
RQ . ERR2 

RQ.ERR3 



LDY 
TXA 
STA 

CLC 
RTS 

LDA 
JSR 
LDA 
JSR 

LDA 
JSR 
PAGE 
REP 



(RQ . NUM) ,Y 



IBADBKPG 
SYSERR 
fSEGRQDN 
SYSERR 

#SEGTBLFULL 
SYSERR 



; NORMAL EXIT 

; ERR EXIT 

; ERR EXIT 

; ERR EXIT 



60 



FIND . SEG (IN . SRCHMODE , SEGID; INOUT . PAGECT ; 

OUT . BASE . BKPG, LIMIT . BKPG, SEGNUM) 



« Apple /// Computer • SOS 1 .3 Source Code Listing • 131 of 255 




000320 




REP 


60 




000321 


* 








000322 


FIND . SEG EQU 


* 




r\ n n o n o 

000323 










r\ n n o n /i 

000324 




RETRIEVE PAGE COUNT 


PARAMETER AND CLEAR ERR FLAG 


000325 










r\ n n o n ^ 

000326 




LDY 


#0 




000327 




LDA 


(F. PGCT) , Y 




000328 




STA 


FX.PGCT 




000329 




I NY 






r\ n n o o n 

000330 




LDA 


(F.PGCT) , Y 




000331 




STA 


FX.PGCT+1 




r\ n n o o o 

000332 


* 








000333 




BNE 


FIND001 




r\ n n o ^ /i 

000334 




LDA 


FX.PGCT 




r\ n n o o c 

000335 




BNE 


FIND001 




r\ n n o ^ ^ 

000336 




LDA 


IBADPGCNT 


; ERR, PAGECT= 


000337 




JSR 


SYSERR 




n n n i z> o 
00033o 










000339 


FIND001 LDA 


#FALSE 




000340 




STA 


F.ERR 




000341 


* 








000342 


* 


IF SEARCH MODE>2 THEN ERR 




000343 


* 








000344 




LDA 


SRC HMO DE 




000345 




CMP 


#3 




000346 




BCC 


FIND005 




000347 




LDA 


IBADSRCHMODE 




000348 




JSR 


SYSERR 


; ERR EXIT 


000349 


* 








000350 


* 


INITIALIZE NEXT FREE 


SEGMENT SUBROUTINE, 




r\ n n o c i 

000351 


* 


AND BIGGEST FREE SEGMENT PAGE COUNT 




000352 


* 








000353 


FIND005 JSR 


NXTFRSEG. I 




r\ n n o u. a 

000354 




LDA 


#0 




000355 




STA 


BFS . PGCT 




000356 




STA 


BFS.PGCT+1 




000357 


* 








000358 


* 


GET NEXT FREE SEGMENT 




000359 


* 








000360 


FIND010 JSR 


NXTFRSEG 




000361 




BCC 


FIND015 


; PROCESS FREE 


000362 


* 








000363 




NO MORE FREE SEGMENTS LEFT 




000364 


* 


RETURN BIGGEST FREE 


SEGMENT FOUND 




000365 


* 


ALONG WITH ERR 






t~\ t~\ r\ r r 

000366 


* 








t~\ n r\ o ^ ~7 

00036 / 




LDA 


#TRUE 




r\ n n o r~ o 

000368 




STA 


F.ERR 




000369 




LDX 


#0 


; SEG#:-0 


000370 




JMP 


FIND070 




000371 










000372 




FREE SEGMENT FOUND. 






000373 




IF FREE SEGMENT > 


BIGGEST FREE SEGMENT THEN 


BFS :— CFS 


000374 










000375 


FIND015 LDA 


BFS. PGCT 




000376 




CMP 


CFS . PGCT 




000377 




LDA 


BFS.PGCT+1 




000378 




SBC 


CFS.PGCT+1 




r\ n n o "~i n 

000379 




BCS 


FIND030 




r\ n n o o n 

000380 


* 








000381 




LDX 


#6 




000382 


FIND020 LDA 


CFS. PGCT, X 




000383 




STA 


BFS. PGCT, X 




000384 




DEX 






000385 




BPL 


FIND020 




r\ r\ r\ 1 a r 

000386 


* 








000387 


* 


IF BFS.PGCT<F.PGCT THEN GET NEXT FREE SEGMENT 




000388 


* 








000389 


FIND030 LDA 


BFS . PGCT 




000390 




CMP 


FX.PGCT 




000391 




LDA 


BFS.PGCT+1 




000392 




SBC 


FX.PGCT+1 




000393 




BCC 


FIND010 




000394 


* 








000395 


* 


BFS . BASE : =BFS . LIM-FX 


.PGCT+1 




000396 


* 


BFS.PGCT:=FX.PGCT 






000397 


* 








000398 




LDA 


BFS.LIM 




000399 




SBC 


FX.PGCT 




000400 




STA 


BFS. BASE 
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000401 


LDA 




BFS . LIM+1 


000402 


SBC 




FX. PGCT+1 


000403 


STA 




BFS .BASE+1 


000404 


INC 




BFS .BASE 


000405 


BNE 




FIND050 


000406 


INC 




BFS .BASE+1 


000407 








000408 


FIND050 LDA 




FX . PGCT 


000409 


STA 




BFS . PGCT 


000410 


LDA 




FX. PGCT+1 


000411 


STA 




BFS . PGCT+1 


000412 








00041 j 


* DELINK ENTRY FROM 


FREE 


LIST, AND LINK 


000414 


* IT INTO SEGMENT LIST 




000415 








000416 


LDA 




BFS .BLINK 


000417 


JSR 




GET . FREE 


000418 


BCC 




FIND060 


000419 


RTS 






000420 








000421 


* ST. ID (NEW) :=F. ID 






000422 


* ST. BASE (NEW) :=BFS 


BASE 




000423 


* ST.LIM(NEW) :=BFS.LIM 




000424 








000425 


FIND060 TAX 






000426 


LDA 




F . ID 


000427 


STA 




ST . ID, X 


000428 








000429 


LDA 




BFS . BASE 


000430 


STA 




ST. BASEL, X 


000431 


LDA 




BFS. BASE+1 


000432 


STA 




ST.BASEH,X 


000433 








000434 


LDA 




BFS.LIM 


000435 


STA 




ST.LIML,X 


000436 


LDA 




BFS. LIM+1 


000437 


STA 




ST.LIMH,X 


000438 








000439 


* RETURN SEGNUM, PAGE COUNT, BASE BANK/ 


000440 


* TO CALLER 






000441 


FIND070 LDY 




#0 


000442 


TXA 






000443 


STA 




(F.NUM) ,Y 


000444 








000445 


LDA 




BFS . PGCT 


000446 


STA 




(F.PGCT) ,Y 


000447 


I NY 






000448 


LDA 




BFS. PGCT+1 


000449 


STA 




(F.PGCT) ,Y 


000450 








000451 


LDX 




BFS. BASE 


000452 


LDY 




BFS. BASE+1 


000453 


JSR 




CNVRT . XBP 


000454 


TYA 






000455 


LDY 




#1 


000456 


STA 




(F.BASE) ,Y 


000457 


DEY 






000458 


TXA 






000459 


STA 




(F.BASE) ,Y 


000460 








000461 


LDX 




BFS.LIM 


000462 


LDY 




BFS. LIM+1 


000463 


JSR 




CNVRT . XBP 


000464 


TYA 






000465 


LDY 




#1 


000466 


STA 




(F.LIM) , Y 


000467 


DEY 






000468 


TXA 






000469 


STA 




(F.LIM) , Y 


000470 








000471 


LDA 




F.ERR 


000472 


BNE 




FIND. ERR 


000473 








000474 


CLC 






000475 


RTS 






000476 








000477 


FIND. ERR LDA 




fSEGRQDN 


000478 


JSR 




SYSERR 


000479 








000480 


CHN 




MEMMGR . B . SRC 


000481 









SEG TABLE FULL 



IF ERR FLAG TRUE THEN REPORT IT. 



; NORMAL EXIT 



; ERR EXIT 
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000482 ************************************************************************* 

000483 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE : MEMMGR . A . SRC 

000484 ************************************************************************* 
000485 

000486 

End of File — Lines: 486 Characters: 12629 
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FILE : "SOS. MEMMGR.B. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



***************************************************************** 
* APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR.B. SRC 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



******** 



******** 



PAGE 
REP 



60 



* NEXT FREE SEGMENT - INITIALIZATION 
* 

* INPUT: SEGMENT TABLE 

* OUTPUT: CFS.PTR "1ST FREE BANK/PAGE IN VIRTUAL MEMORY 

* CFS.PREV "PREVIOUS SEGMENT EXAMINED" 

* CFS.NEXT "SEGMENT FOLLOWING CFS.PREV" 

* ERROR: NONE (IF NO FREE BK/PG FOUND, THEN CFS . PTR="FFFF" ) 



NXTFRSEG. I 
* 

* CFS.PTR : 

* CFS.PREV 

* CFS.NEXT 



REP 
EQU 

VRT . LIM 

- 

= ST. ENTRY 

LDA 
STA 
LDA 
STA 

LDA 
STA 

LDX 
STX 



60 



>VRT . LIM 
CFS.PTR 
>VRT.LIM+1 
CFS.PTR+1 

#0 

CFS . PREV 

ST. ENTRY 
CFS.NEXT 



* L0: IF CFS.NEXT=0 THEN DONE 
* 

FRSGI010 BEQ FRSGI.EXIT 

* 

* IF ST.LIM(CFS.NEXT)<=VRT.LIM THEN GOTO LI 



LDA 
CMP 
LDA 
SBC 
BCS 



>VRT . LIM 

ST.LIML,X 

>VRT.LIM+1 

ST.LIMH,X 

FRSGI020 



* CFS. PREV :=CFS. NEXT 

* CFS. NEXT :=ST.FLINK (CFS. NEXT) 

* GOTO L0 



STX 
LDA 
TAX 
STX 
JMP 



CFS . PREV 
ST.FLINK,X 



CFS.NEXT 
FRSGI010 



LI: IF ST. LIM (CFS. NEXT ) <VRT. LIM THEN DONE 



FRSGI .EXIT 



LDA 
CMP 
LDA 
SBC 
BCC 



JSR 

RTS 

PAGE 

REP 



ST.LIML,X 
>VRT . LIM 
ST.LIMH,X 
>VRT.LIM+1 
FRSGI .EXIT 



; NORMAL EXIT 



60 



* NEXT FREE SEGMENT 



* INPUT: SEG TABLE 

* OUTPUT: CFS. BLINK 
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000077 


* CFS.BASE 




000078 


* CFS. LIMIT 




000079 


* CFS . PGCT 




000080 


* OWN: CFS.PREV 




000081 


* CFS. NEXT 




000082 


* CFS.PTR 




000083 






000084 


* BUILDS A CANDIDATE FREE SEGMENT, WHOSE 


000085 


* THE CURRENT FREE PAGE 


(CFS . PTR) . 


000086 






000087 


REP 


60 


000088 






000089 


NXTFRSEG EQU 




000090 






000091 


* IF CFS . PTR-"FFFF" THEN 


EXIT 


000092 






000093 


LDA 


CFS . PTR+1 


000094 


BPL 


FRSG010 


000095 






000096 


SEC 




000097 


RTS 




000098 






000099 


* CFS. BLINK :=CFS.PREV 




000100 


* CFS.LIM:=CFS.PTR 




000101 






000102 


FRSG010 LDA 


CFS . PREV 


000103 


STA 


CFS. BLINK 


000104 






000105 


LDA 


CFS.PTR 


000106 


STA 


CFS.LIM 


000107 


LDA 


CFS. PTR+1 


000108 


STA 


CFS.LIM+1 


000109 






000110 


* IF CFS.NEXT=0 THEN CFS 


.BASE:=0 


000111 


* ELSE CFS . BASE :=ST.LIM (CFS. NEXT) +1 


000112 






000113 


LDA 


CFS. NEXT 


000114 


BNE 


FRSG020 


000115 


LDA 


#0 


000116 


STA 


CFS . BASE 


000117 


STA 


CFS.BASE+1 


000118 


BEQ 


FRSG030 


000119 






000120 


FRSG020 LDX 


CFS. NEXT 


000121 


CLC 




000122 


LDA 


ST.LIML,X 


000123 


ADC 


#1 


000124 


STA 


CFS.BASE 


000125 


LDA 


ST.LIMH,X 


000126 


ADC 


#0 


000127 


STA 


CFS.BASE+1 


000128 






000129 


* CFS.BASEO:=CFS.LIM AND 


$FF80 


000130 






000131 


FRSG030 LDY 


CFS.LIM+1 


000132 


STY 


CFS.BASEO+1 


000133 


LDA 


CFS.LIM 


000134 


AND 


#$80 


000135 


STA 


CFS. BASE 


000136 






000137 


* CFS . BASE1 : =CFS . BASE0-32K 


000138 






000139 


SEC 




000140 


SBC 


#$80 


000141 


STA 


CFS. BASE 1 


000142 


TYA 




000143 


SBC 


#0 


000144 


STA 


CFS.BASE1+1 


000145 


BCS 


FRSG035 


000146 


LDA 


#0 


000147 


STA 


CFS.BASE1 


000148 


STA 


CFS.BASE1+1 


000149 






000150 


* IF CFS.BASE>=CFS.BASEO 


THEN GOTO LI 


000151 






000152 


FRSG035 LDA 


CFS . BASE 


000153 


CMP 


CFS. BASE 


000154 


LDA 


CFS.BASE+1 


000155 


SBC 


CFS.BASEO+1 


000156 


BCS 


FRSG050 


000157 







; EXIT - NO MORE FREE SEGMENTS LEFT 
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000158 




IF SEARCH MODE-0 THEN 


CFS . BASE : —CFS . BASE 


000159 




GOTO LI 




000160 








000161 




LDA 


SRC HMO DE 


0001 62 




BNE 


FRSG040 


000163 




LDA 


CFS .BASE0 


000164 




STA 


CFS .BASE 


000165 




LDA 


CFS .BASE0+1 


000166 




STA 


CFS .BASE+1 


000167 




JMP 


FRSG050 


000168 


* 






000169 


* 


IF CFS.BASE<CFS.BASE1 


AND SEARCH MODE=l 


000170 


* 


THEN CFS.BASE:=CFS 


. BASE1 


000171 


* 






0001 1Z 


FRSG040 LDA 


CFS .BASE 


000173 




CMP 


CFS .BASE1 


000174 




LDA 


CFS .BASE+1 


000175 




SBC 


CFS . BASE1+1 


000176 




BCS 


FRSG050 


000177 


* 






000178 




LDA 


SRC HMO DE 


000179 




CMP 


#1 


000180 




BNE 


FRSG050 


r\ n n t on 

000181 


* 






r\ r\ r\ *\ o o 

000182 




LDA 


CFS.BASE1 


000183 




STA 


CFS . BASE 


000184 




LDA 


CFS.BASE1+1 


000185 




STA 


CFS. BASE+1 


000186 


* 






000187 


* 


LI: CFS.PGCT:=CFS.LIM-CFS.BASE+1 


r\ r\ r\ *\ o o 

000188 


* 






000189 


FRSG050 SEC 




000190 




LDA 


CFS.LIM 


n n n *\ 

000191 




SBC 


CFS . BASE 


000192 




STA 


CFS.PGCT 


000193 




LDA 


CFS.LIM+1 


000194 




SBC 


CFS. BASE+1 


000195 




STA 


CFS.PGCT+1 


n n n n n r 

000196 




INC 


CFS . PGCT 


000197 




BNE 


FRSG052 


n n n *\ no 

000198 




INC 


CFS.PGCT+1 


000199 


* 






n n n o n n 

000200 


* 


ADVANCE FREE PAGE POINTER TO NEXT FREE PAGE 


000201 


* 






000202 




IF SEARCH M0DEO1 THEN L2 : 


000203 








000204 


FRSG052 LDA 


SRC HMO DE 


000205 




CMP 


#1 


r\ n n n n 

000206 




BNE 


FRSG060 


n n n o n ~7 

000207 


* 






000208 


* 


IF CFS.BASE < CFS.BASE0 THEN CFS . PTR : — CFS . BASE - 


000209 


* 






000210 




LDA 


CFS . BASE 


000211 




CMP 


CFS.BASE0 


000212 




LDA 


CFS. BASE+1 


000213 




SBC 


CFS.BASE0+1 


000214 




BCS 


FRSG060 


n n n n i c 

000215 


* 






000216 




LDY 


CFS.BASE0+1 


000217 




LDX 


CFS.BASE0 


n n n n i o 

000218 




BNE 


FRSG055 


000219 




DEY 




000220 


FRSG055 DEX 




000221 




STX 


CFS. PTR 


000222 




STY 


CFS.PTR+1 


n n n n o o 

000223 


* 






000224 




JMP 


FRSG070 


n n n o n c 

000225 


* 


L2: CFS. PTR :=CFS. BASE 


-1 


000226 


* 






n n n o 1 "7 

00022 / 


FRSG060 SEC 




000228 




LDA 


CFS . BASE 


000229 




SBC 


#1 


000230 




STA 


CFS. PTR 


000231 




LDA 


CFS. BASE+1 


000232 




SBC 


#0 


000233 




STA 


CFS.PTR+1 


000234 


* 






000235 


* 


IF CFS . PTR="FFFF" OR CFS.NEXT=0 THEN EXIT 


000236 


* 






000237 




BCC 


FRSG070 


000238 




LDA 


CFS. NEXT 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



BEQ FRSG070 
* IF CFS.PTR > ST.LIM(CFS.NEXT) THEN EXIT 



LDX 
IDA 
CMP 
IDA 
SBC 
BCC 



CFS.NEXT 

ST.LIML,X 

CFS.PTR 

ST.LIMH,X 

CFS.PTR+1 

FRSG070 



OTHERWISE, ADVANCE CFS PTR TO NEXT FREE PAGE BELOW NEXT 
SEGMENT IN SEGMENT LIST 



FRSG070 



JSR 

CLC 
RTS 
PAGE 
REP 



FREE SEGMENT FOUND 



* NEXT FREE PAGE 



"WALKS" THE FREE PAGE PTR (CFS.PTR) TO THE NEXT FREE PAGE 
IMMEDIATELY BELOW THE CURRENT FREE SEGMENT. 



60 



EQU 



L0: CFS. PTR:=ST. BASE (CFS.NEXT) -1 
IF CFS . PTR-"FFFF" THEN DONE 



LDX 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
BCC 



ST. BASEL, X 
#1 

CFS.PTR 
ST.BASEH,X 

#0 

CFS.PTR+1 
NFRPG.EXIT 



CFS 
CFS 



. PREV:=CFS.NEXT 

. NEXT : =ST . FLINK (CFS . NEXT) 



STX 
LDA 
TAX 
STX 



CFS . PREV 
ST. FLINK, X 



CFS.NEXT 



CFS.NEXT=0 OR ST . LIM (CFS -NEXT) <CFS . PTR 
THEN DONE 
ELSE GOTO L0 



NFRPG.EXIT 



BEQ 
LDA 
CMP 
LDA 
SBC 
BCS 

RTS 

PAGE 

REP 



NFRPG.EXIT 

ST.LIML,X 

CFS.PTR 

ST.LIMH,X 

CFS.PTR+1 

NXTFRPG 



60 



; NORMAL EXIT 



* CHANGE. SEG (IN. SEGNUM, CHG. MODE; INOUT . PAGECT) SYSTEM CALL 

REP 60 
CHG. SEG EQU * 

* MOVE CALLER'S PAGE COUNT TO INTERNAL BUFFER 



LDY 
LDA 
STA 
I NY 
LDA 
STA 



#0 

(CHG.PGCT) ,Y 
CHG. PGCTX 

(CHG.PGCT) ,Y 
CHG. PGCTX+1 
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000320 


* IF SEG# 


OUT 


OF RANGE 


OR ST.FLINK(SEG 


000321 










n n n "3 o o 
000322 






LDX 


CHG . NUM 


n n n "3 i "3 
00032J 






BEQ 


CHGS . ERR 


n n n -3 n a 
000324 






CPX 


#ST . CNT 


n n n *3 n iz 

000325 






BCS 


CHGS . ERR 


n n n o i r 
00U JZO 






LDA 


ST . FLINK, X 


n n n *3 o ""7 
00032 / 






BPL 


CHGS005 


000328 










n n n *3 o n 
000329 


CHGS . ERR 




LDA 


#BADSEGNUM 


n n n *3 o n 

000330 






JSR 


SYSERR 


n n n "3 "3 i 
000331 






REP 


35 


n n n -3 "3 o 
000332 


* CASE OF 


CHANGE MODE 




n n n -3 "3 r> 
000333 






REP 


35 


000334 


CHGS005 




LDY 


CHG . MODE 


n n n o "3 c 
000335 






CPY 


#1 


n n n -3 "3 r 
UUU336 






BCC 


CHGS01 


n n n "3 ^> "7 
00033 / 






BEQ 


CHGS02 


n n n "3 "3 o 
000338 






CPY 


#3 


n n n o "3 n 

000339 






BCC 


CHGS030 


n n n o /i n 

000340 






BEQ 


CHGS040 


000341 


* 








n n n "3 a o 
000342 






LDA 


#BADCHGMODE 


n n n "3 /i "3 
00034 J 






JSR 


SYSERR 


n n n "3 /i yi 
000344 






PAGE 




n n n "3 /i iz 
000345 






REP 


35 


n n n "3 a r 
(JUL) j4d 


* CHANGE MODE 


= (BASE 


UP) 


n n n "3 /it 
00034 / 






REP 


35 


000348 


* CHG.NEW 


=ST 


.BASE (SEG#) +PGCT 


n n n o /i n 

000349 










n n n "3 iz n 
000350 


CHGS010 




CLC 




n n n o c i 

000351 






LDA 


ST. BASEL, X 


n n n -3 c o 
000352 






ADC 


CHG . PGCTX 


n n n "3 c "3 
000353 






STA 


CHG.NEW 


000354 






LDA 


ST.BASEH,X 


n n n *3 iz iz 
UUU355 






ADC 


CHG.PGCTX+1 


n n n *3 (z ^ 

000356 






STA 


CHG.NEW+1 


000357 


* 








n n n -3 iz o 
000358 






BCS 


CHGS014 


n n n "3 iz n 
000359 


* 








n n n "3 r r\ 
UUU JOl) 


* IF CHG.NEW 


<= ST.LIM(SEG#) THEN EXIT 


n nn o ci 
UUU361 










n n n "3 r o 
00U j62 






LDA 


ST.LIML,X 


n n n "3 ^ o 
UU U o bo 






CMP 


CHG . NEW 


UUU364 






LDA 


ST.LIMH,X 


n n n "3 ^ iz 
000365 






SBC 


CHG.NEW+1 


000366 






BCS 


CHGS016 


n n n "3 r i 
00036 / 










n n n "3 r o 
O01U68 


* OTHERWISE, 


CHG. NEW := 


3T.LIM(SEG#) 


000369 










n n n *3 t n 

000370 


CHGS014 




LDA 


ST.LIML,X 


n n n "3 ^ i 
UU U J / I 






STA 


CHG.NEW 


n n n "3 ^ o 
UU U J /2 






LDA 


ST.LIMH,X 


n n n "3 n *3 
UUU3 /3 






STA 


CHG.NEW+1 


0003 /4 










n n n "3 ^ iz 
0003 /5 


CHGS016 




JMP 


CHGS .EXIT 


n n n -3 "7 r 

0003 lb 






REP 


35 


n n n *3 ^ ""7 
UUUjW / 


* CHANGE MODE 


= 1 (BASE 


DOWN) 


n n n *3 t o 

000378 






REP 


35 


n n n *3 t n 

000379 


* CHG.NEW 


=ST 


.BASE (SEG#) -PGCT 


n n n "3 o n 
000380 










n n n "3 o i 
000381 


CHGS020 




SEC 




n n n "3 o o 
UUUJ82 






LDA 


ST. BASEL, X 


n n n "3 o o 
UUU383 






SBC 


CHG. PGCTX 


000384 






STA 


CHG . NEW 


n n n "3 n iz 

000385 






LDA 


ST.BASEH,X 


r\ n n ~? o r 
0003oO 






SBC 


CHG. PGCTX+1 


r\ n n ^> o t 

00038 / 






STA 


CHG.NEW+1 


000388 






BCS 


CHGS050 


n n n ^> o n 

000389 






BCC 


CHGS052 


r\ r\ c\ "3 n n 

000390 






REP 


35 


000391 


* CHANGE MODE 


= 2 (LIMIT UP) 


000392 






REP 


35 


000393 


* CHG.NEW 


=ST 


. LIM(SEG#) +PGCT 


000394 










000395 


CHGS030 




CLC 




000396 






LDA 


ST.LIML,X 


000397 






ADC 


CHG . PGCTX 


000398 






STA 


CHG.NEW 


000399 






LDA 


ST.LIMH,X 


000400 






ADC 


CHG.PGCTX+1 



; ERR EXIT 



; OVERFLOW, PEG IT 



OVERFLOW, PEG IT 
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000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
00040 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 



STA 
BCC 
BCS 
REP 



CHG.NEW+1 
CHGS050 
CHGS052 
35 



; OVERFLOW, PEG IT 



* CHANGE MODE = 3 (LIMIT DOWN) 
REP 35 

* CHG.NEW:=ST.LIM(SEG#) -PGCT 

9 CHGS040 



* IF CHG.NEW >= 



SEC 




LDA 


ST.LIML,X 


SBC 


CHG. PGCTX 


STA 


CHG.NEW 


LDA 


ST.LIMH,X 


SBC 


CHG. PGCTX+1 


STA 


CHG.NEW+1 


BCC 


CHGS044 


ST . BASE (SEG# ) THEN EXI 


LDA 


CHG.NEW 


CMP 


ST. BASEL, X 


LDA 


CHG.NEW+1 


SBC 


ST.BASEH,X 


BCS 


CHGS046 


NEW:=ST 


BASE (SEG#) 


LDA 


ST. BASEL, X 


STA 


CHG.NEW 


LDA 


ST.BASEH,X 


STA 


CHG.NEW+1 


JMP 


CHGS .EXIT 



CHGS044 



CHGS046 

* DETERMINE NEW BANK/PAGE'S REGION, 

* IF NEW BANK/PAGE IS INVALID THEN 

* SET TO BASE OR LIMIT (CASE CHANGE MODE) 

CHGS050 



CHGS052 



CHGS054 



CHGS056 



LDX 


CHG.NEW 


LDY 


CHG.NEW+1 


JSR 


REGION 


BCS 


CHGS052 


BNE 


CHGS052 


BEQ 


CHGS100 


LDA 


CHG. MODE 


CMP 


#1 


BNE 


CHGS054 


LDX 


#>VRT.BASE 


LDY 


#<VRT.BASE 


JMP 


CHGS056 


LDX 


>VRT . LIM 


LDY 


>VRT.LIM+1 


STX 


CHG.NEW 


STY 


CHG.NEW+1 


PAGE 





OVERFLOW, PEG IT 



COMPUTE BANK/ PAGE OF ADJACENT SEGMENT, 
CASE CHANGE MODE 



CHGS100 



CHG.NUM 
CHG. MODE 
#1 

CHGS200 

THEN EXIT 
ST.FLINK,X 
CHGS. EXIT 



LDX 
LDA 
CMP 
BNE 

IF ST.FLINK(SEG#)=0 
LDA 
BEQ 

X, Y:=ST.LIM(ST.FLINK (SEG#) ) +1 
TAY 

LDA ST . LIML, Y 

TAX 

LDA ST . LIMH, Y 

TAY 

I NX 

BNE CHGS110 
I NY 

IF CHG.NEW < X,Y THEN CHG.NEW:=X,Y 



CHGS110 



CHGS120 



CPY 
BCC 
BEQ 
BCS 
CPX 



CHG.NEW+1 
CHGS .EXIT 
CHGS120 
CHGS300 
CHG.NEW 
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000482 




BCC 


CHGS . EXIT 


000483 




BCS 


CHGS300 


000484 


* "2" 


IF ST .BLINK (SEG#) 


=0 THEN EXIT 


000485 


CHGS200 


LDA 


ST . BLINK, X 


000486 




BEQ 


CHGS. EXIT 


000487 




X,Y:= ST.BASE(ST. 


BLINK (SEG#) ) -1 


000488 




TAY 




000489 




LDA 


ST . BASEL, Y 


000490 




TAX 




000491 




LDA 


ST . BASEH, Y 


000492 




TAY 




000493 




TXA 




000494 




BNE 


CHGS210 


000495 




DEY 




000496 


CHGS210 


DEX 




000497 




IF CHG.NEW > X,Y 


THEN CHG.NEW:-X 


000498 




CPY 


CHG.NEW+1 


000499 




BCC 


CHGS300 


000500 




BEQ 


CHGS220 


000501 




BCS 


CHGS .EXIT 


000502 


CHGS220 


CPX 


CHG.NEW 


000503 




BCS 


CHGS .EXIT 


000504 








000505 


CHGS300 


STX 


CHG.NEW 


000506 




STY 


CHG.NEW+1 


000507 




PAGE 




000508 




REP 


35 


000509 








000510 


* COMPUTE DELTA PAGE COUNT AND RETURN IT 


000511 


* (CASE 


OF CHG.MODE) 




000512 








000513 




REP 


35 


000514 


CHGS .EXIT LDX 


CHG.NUM 


000515 




LDY 


#0 


000516 




LDA 


CHG.MODE 


000517 




CMP 


#1 


000518 




BCC 


CHGS500 


000519 




BEQ 


CHGS510 


000520 




CMP 


#3 


000521 




BCC 


CHGS520 


000522 




BEQ 


CHGS530 


000523 


-k 






000524 


* "0" - 


- PAGECOUNT : =NEW-BASE 


000525 








000526 


CHGS500 


SEC 




000527 




LDA 


CHG.NEW 


000528 




SBC 


ST. BASEL, X 


000529 




STA 


(CHG.PGCT) ,Y 


r\ n n it o n 

000530 




LDA 


CHG.NEW+1 


000531 




SBC 


ST. BASEH, X 


000532 




JMP 


CHGS600 


000533 


* 






000534 


* "1" - 


- PAGECOUNT :=BASE- 


NEW 


000535 








000536 


CHGS510 


SEC 




000537 




LDA 


ST. BASEL, X 


000538 




SBC 


CHG.NEW 


000539 




STA 


(CHG.PGCT) ,Y 


000540 




LDA 


ST. BASEH, X 


000541 




SBC 


CHG.NEW+1 


000542 




JMP 


CHGS600 


000543 








000544 


* "2" - 


- PAGECOUNT :=NEW-LIM 


000545 








000546 


CHGS520 


SEC 




000547 




LDA 


CHG.NEW 


000548 




SBC 


ST.LIML,X 


000549 




STA 


(CHG.PGCT) ,Y 


000550 




LDA 


CHG.NEW+1 


000551 




SBC 


ST.LIMH,X 


000552 




JMP 


CHGS600 


000553 








000554 


* "3" - 


- PAGECOUNT : -LIM-NEW 


000555 








000556 


CHGS530 


SEC 




000557 




LDA 


ST.LIML,X 


000558 




SBC 


CHG . NEW 


000559 




STA 


(CHG.PGCT) ,Y 


000560 




LDA 


ST.LIMH,X 


000561 




SBC 


CHG.NEW+1 


000562 


* 
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000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 



CHGS600 



I NY 
STA 



(CHG.PGCT) , Y 

IF NEW PAGE COUNT < REQUESTED PAGECOUNT THEN ERR 



TAX 
DEY 
LDA 
CMP 
TXA 
SBC 
BCS 
LDA 
JSR 



(CHG.PGCT) ,Y 
CHG . PGCTX 

CHG. PGCTX+1 
CHGS610 
fSEGRQDN 
SYSERR 



; ERR EXIT 

OTHERWISE, ENTER CHG. NEW IN SEGMENT TABLE AND EXIT 



CHGS610 



CHGS620 



LDX 
LDA 
CMP 
LDA 
LDY 
BCS 

STA 
TYA 
STA 
CLC 
RTS 



STA 
TYA 
STA 
CLC 
RTS 



CHG.NUM 
CHG. MODE 

#2 

CHG. NEW 

CHG.NEW+1 

CHGS620 

ST. BASEL, X 

ST.BASEH,X 



ST.LIML,X 
ST.LIMH,X 



NORMAL EXIT 



; NORMAL EXIT 



CHN MEMMGR . C . SRC 

************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR. B. SRC 

************************************************************************* 



End of File 



Lines: 606 Characters: 12658 
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FILE : " SOS. MEMMGR.C. SRC. TEXT 



000001 


******************************************************** 


r\ n n r\ n o 

000002 


* BPPT T? / / / QPiQ 1 ~\ QrinPPTT 1 
AJrlrijIj III OUO 1 . J O U rv^. £j 




000003 


************************** 


************************************** 


000004 


* H Q qtrwi'RT T7P • aPPTTT IT £ R (1 9 
f-io oijl v liDijijr\ . rtJrJrJ_i£Lj J |_ OOUZ 


AQQT7MP.TPR fv~r\m APPTP rTlMPHTTTP THHT TTTT 


000005 






000006 






00000 / 


REP 


O U 


000008 


* 




000009 


* GET . SEG . INFO ( IN . SEGNUM; 


DUT. BASE. BKPG, LIMIT. BKPG, PGCT, SEGID) 


000010 


* 




000011 


REP 


60 


000012 






000013 


GET. SEG. INFO EQU 




000014 


* 




000015 


* IF SEG# OUT OF BOUNDS OR 


ST . FLINK (SEG#) =ST . FREE THEN ERR 


000016 


* 




000017 


LDX 


GSI .NUM 


000018 


BEQ 


GSI.ERR ; ERR - INVALID 


000019 


CPX 


#ST.CNT 


r\ n n r\ n n 

000020 


BCS 


GSI.ERR ; ERR - INVALID 


000021 


LDA 


ST. FLINK, X 


000022 


BMI 


GSI.ERR ; ERR - INVALID 


000023 






000024 


* RETURN BASE . BKPG TO CALLER 


r\ n n r\ o it 

000025 






r\ n n r\ n ^ 

000026 


LDY 


ST.BASEH,X 


000027 


LDA 


ST. BASEL, X 


r\ n n r\ n o 

00002b 


TAX 




r\ n n r\ n rs 

000029 


JSR 


CNVRT . XBP 


000030 


TYA 




000031 


LDY 


#1 


000032 


STA 


(GSI .BASE) , Y 


000033 


DEY 




000034 


TXA 




000035 


STA 


(GSI .BASE) , Y 


000036 






000037 


* RETURN LIMIT. BKPG TO CALLER 


000038 






000039 


LDX 


GSI .NUM 


000040 


LDY 


ST.LIMH,X 


000041 


LDA 


ST.LIML,X 


000042 


TAX 




000043 


JSR 


CNVRT . XBP 


000044 


TYA 




000045 


LDY 


#1 


000046 


STA 


(GSI.LIM) ,Y 


000047 


DEY 




000048 


TXA 




000049 


STA 


(GSI.LIM) ,Y 


000050 






000051 


* RETURN SEGID TO CALLER 




000052 


* 




000053 


LDX 


GSI .NUM 


000054 


LDA 


ST.ID,X 


000055 


STA 


(GSI. ID) ,Y 


000056 






000057 


* COMPUTE PAGE COUNT 




000058 


* 




000059 


SEC 




000060 


LDA 


ST.LIML,X 


000061 


SBC 


ST. BASEL, X 


000062 


TAY 




000063 


LDA 


ST.LIMH,X 


000064 


SBC 


ST.BASEH,X 


000065 


TAX 




000066 


I NY 




000067 


BNE 


GSI010 


000068 


I NX 




000069 






000070 


* RETURN PAGE COUNT TO CALLER 


000071 






000072 


GSI010 TYA 




000073 


LDY 


#0 


000074 


STA 


(GSI. PGCT) ,Y 


000075 


I NY 




000076 


TXA 





******** 



« Apple /// Computer • SOS 1 .3 Source Code Listing • 143 of 255 




000077 




STA 


(GSI . PGCT) , Y 


000078 


* 






000079 




CLC 




000080 




RTS 




000081 


* 






000082 


GSI.ERR LDA 


fBADSEGNUM 


r\ n n r\ o o 

00008 3 




JSR 


SYSERR 


000084 




PAGE 




000085 




REP 


60 


000086 


* 






000087 




GET . SEG . NUM (IN. BANKPAGE ; OUT . SEGNUM) 


000088 


* 






000089 


* 






000090 




REP 


60 


000091 


* 






000092 


GET . SEG . NUM EQU 


* 


000093 








000094 


* 


CONVERT BANKPAGE TO INTERNAL FORMAT 


000095 


* 






000096 




LDX 


GSN.BKPG 


000097 




LDY 


GSN.BKPG+1 


000098 




JSR 


CNVRT . IBP 


000099 




BCS 


GSN . ERR 


000100 




STX 


GSN.BKPG 


000101 




STY 


GSN.BKPG+1 


000102 


* 






000103 


* 


QUIT IF NO ENTRIES IN 


SEG TABLE 


000104 


* 






000105 




LDA 


ST. ENTRY 


000106 




BEQ 


GSN . ERR1 


000107 


* 






000108 


* 


LI: IF BANKPAGE>ST . LIM (SEG#) THEN ERR 


000109 


* 






000110 


GSN010 TAX 




000111 




LDA 


ST.LIML,X 


000112 




CMP 


GSN.BKPG 


000113 




LDA 


ST.LIMH,X 


000114 




SBC 


GSN.BKPG+1 


000115 




BCC 


GSN . ERR1 


000116 


* 






000117 


* 


IF BANKPAGE>=ST . BASE (SEG#) THEN FOUND 


000118 


* 






000119 




LDA 


GSN.BKPG 


000120 




CMP 


ST. BASEL, X 


000121 




LDA 


GSN.BKPG+1 


000122 




SBC 


ST.BASEH,X 


000123 




BCS 


GSN020 


000124 


* 






000125 


* 


SEG#:=ST.FLINK(SEG#) ; 


GOTO LI 


000126 


* 






000127 




LDA 


ST. FLINK, X 


000128 




BEQ 


GSN . ERR1 


000129 




JMP 


GSN010 


000130 


* 






000131 


* 


RETURN SEG# TO CALLER 




000132 


* 






000133 


GSN020 LDY 


#0 


000134 




TXA 




000135 




STA 


(GSN. NUM) , Y 


000136 




CLC 




000137 




RTS 




000138 








000139 


GSN.ERR RTS 




000140 


* 






000141 


GSN . ERR1 LDA 


#SEGNOTFND 


000142 




JSR 


SYSERR 


000143 




PAGE 




000144 




REP 


60 


000145 


* 






000146 


* 


RELEASE . SEG ( IN . SEGNUM) 


SYSTEM CALL 


000147 


* 






000148 




REP 


60 


000149 


* 






000150 


RELEASE . SEG EQU 


* 


000151 


* 






000152 


* 


IF ST . FLINK (SEG# ) =ST . FREE THEN ERR 


000153 


* 






000154 




LDX 


RLS.NUM 


000155 




BEQ 


RLS . ALL 


000156 




CPX 


#ST.CNT 


000157 




BCS 


RLS. ERR 



NORMAL EXIT 



INVALID BANK PAGE 



; ERR - SEG NOT FOUND 



; ERR - SEG NOT FOUND 



SEG NOT FOUND 



; NORMAL EXIT 
; ERROR EXIT 

; ERROR EXIT 



; RELEASE. SEG (SEG#=0) 
; ERR - SEG# TOO LARGE 
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000158 






LDA 






ST . FLINK, X 


000159 






BMI 






RLS . ERR 


000160 






BPL 






REL . SEG 


000161 






REP 






35 


000162 














000163 


* RELEASE 


ALL 










000164 














000165 






REP 






35 


000166 


RLS .ALL 




LDX 






ST . ENTRY 


000167 






BEQ 






RLSO . EXIT 


000168 






STX 






RLS . NUM 


000169 














000170 


RLSO . LOOP 




LDA 






ST . ID, X 


000171 






CMP 






#$10 


000172 














000173 






LDA 






ST . FLINK, X 


000174 






PHA 








000175 






BCC 






RLS006 


000176 






JSR 






REL . SEG 


000177 


RLS006 




PLA 








000178 






BEQ 






RLSO .EXIT 


000179 






STA 






RLS . NUM 


000180 






TAX 








000181 






BNE 






RLSO . LOOP 


000182 














000183 


RLSO .EXIT 




CLC 








000184 






RTS 








000185 






REP 






35 


000186 














000187 


* REL SEG 












000188 














000189 






REP 






35 


000190 


* Y:=ST.FLINK(SEG#) 








0001 91 


* X : =ST . BLINK (SEG# ) 








000192 














000193 


REL. SEG 




TAY 








000194 






LDA 






ST . BLINK, X 


000195 






TAX 








000196 














000197 


* IF XOO 


THEN 


ST. FLINK (X) 


-Y 


000198 




ELSE 


ST. ENTRY: 


=Y 




000199 














r\ n n o n r\ 

000200 






BEQ 






RLSO 10 


000201 






TYA 








000202 






STA 






ST . FLINK, X 


000203 






JMP 






RLS020 


000204 


RLS010 




STY 






ST . ENTRY 


000205 














000206 


* IF YO0 


THEN 


ST . BLINK (Y) 


-X 


000207 














000208 






TYA 








000209 


RLS020 




BEQ 






RLS030 


000210 






TXA 








000211 






STA 






ST . BLINK, Y 


000212 














000213 


* ST . FLINK (SEG# ) :=ST 


.FREE 




000214 


* ST. FREE 


=SEG# 


AND 


#$8C 






000215 














000216 


RLS030 




LDA 






ST . FREE 


000217 






LDX 






RLS . NUM 


000218 






STA 






ST . FLINK, X 


000219 






TXA 








000220 






ORA 






#$80 


000221 






STA 






ST . FREE 


000222 


* 












000223 






CLC 








000224 






RTS 








000225 














000226 


RLS . ERR 




LDA 






#BADSEGNUM 


r\ n n o n -i 

00022 7 






JSR 






SYSERR 


000228 






PAGE 








r\ r\ n 1 1 n 

uuuzzy 






REP 






60 


000230 














000231 


* CONVERT 


INTERNAL BANK 


PAGE 


000232 














000233 


* INPUT : 


EXTERNAL BANK 


(X) 




000234 






PAGE 


(Y) 




000235 


* OUTPUT: 


INTERNAL BKPG 


LOW (X) 


000236 






BKPG 


HIGH (Y) 


000237 




REGION (A) 


0=>VIRT BANK 


000238 


* 






1=>PHY BANK (0-$2 



ERR - INVALID SEGNUM 
RELEASE . SEG (SEG#>0 ) 



CARRY SET/CLEARED HERE 



IF ID=SYS SEG THEN SKIP 
RELEASE ONE SEGMENT 



; ALWAYS TAKEN 



; NORMAL EXIT ; ALL NON SYSTEM SEGMENTS RELEASED. 



NORMAL EXIT 
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0UU239 








2=; 


($A000-$FFFF) 


000240 




ERROR: 


CARRY SET 


"INVALID BANK PAGE") 


000241 


* 










n n n o /i o 
UU Uz 4z 






REP 




60 


n n n o /i o 
0U024 J 


* 










000244 


CNVRT . IBP 


EQU 




* 


n n n o /i iz 
UUU245 












UUU246 




CONVERT 


FROM EXTERNAL 


TO INTERNAL FORMAT 


UUUz4 / 












n n n o /i o 
UUU248 


* 


CASE OF 


BANK : ADD 


PAGE BIAS 


000249 


* 










n n n o iz n 

000250 






TYA 












CPX 




#$F 


n n n o iz o 

000252 






BEQ 




CNVI010 


n n n o rz o 

00025-3 






BCS 




CNVI 020 


n n n o iz /i 
UU Uz 54 


* 










UU Uz 55 






CMP 




#$20 


UUU256 






BCC 




CNVI . ERR1 


n n n o iz ~7 
UUU25 / 






CMP 




#$A0 


000258 






BCS 




CNVI . ERR1 


n n n o iz n 

000259 






SEC 






n n (ii r n 
UUU2 60 






SBC 




#$20 


n n n o ^ t 

0002 61 






JMP 




CNVI030 


ri n n o zo 
UUU2 62 


* 










n n n o r o 
UU Uz 6 3 


CNVI010 


CMP 




#$20 


UU Uz 64 






BCS 




CNVI . ERR1 


n n n o r~ iz 
UU 02 do 






CLC 






n n n o £ ^ 
UUU2 oo 






ADC 




#$80 


n n n o £ ~7 
UUU2 o / 






JMP 




CNVI030 


nn n o r o 
UUU2 oo 


* 










n n n o r n 
UUU2 69 


CNVI020 


CPX 




#$10 


n n n o "7 n 

000270 






BNE 




CNVI . ERR1 


n n n o n i 
0U02 11 






CMP 




#$A0 


UUU2 /2 






BCC 




CNVI . ERR1 


n n n i ^ o 
UU Uz /3 






SEC 






UU Uz /4 






SBC 




#$80 


UUU2 /5 












n n n o ^ 
UUU2 / 6 


CNVI030 


TAY 






000277 






TXA 






n n n o "7 o 
0UU2 /8 






LSR 




A 


n n n o i n 

000279 






TAX 






n n n o o n 

U00280 






TYA 






n n n i o i 
0UU281 






BCC 




CNVI 04 


n n n o o o 
UUU282 






ORA 




#$80 


n n n o o o 
UUU283 


* 










n n n o o a 
UUU284 


* 


EXCHANGE X & Y 






UUU285 


* 










n n n o o r 

U00286 


CNVI040 


PHA 






n n n o o ~7 

00028 7 






TXA 






n n n o o o 

000288 






TAY 






n n n o o n 

000289 






PLA 






nnnn nn 
0UU2 90 






TAX 






n n n o n i 
UUU2 91 


* 










n n n o no 
UUU2 92 


* 


COMPUTE 


REGION (VIRT=C 


, PHY1=1, PHY2=2) 


n n n o no 
UUU2 93 


* 










n n no n a 
UUU2 94 






JSR 




REGION 


n n n o n iz 

0002 95 






BCS 




CNVI .ERR1 


n n n o c\r 
UUU2 96 


* 










n n n o m 
UUU2 9 / 






RTS 






n n n o n o 
UUU2 98 


* 










nnnn nn 
UUU2 99 


CNVI . ERR1 


LDA 




#BADBKPG 


n n n ^ n n 
UUU3UU 






JSR 




SYSERR 


n n n o n i 
UUU3U1 






PAGE 






n n n o n o 
UUU3U2 






REP 




60 


000303 


* 










n n n n n a 

000304 


* 


CONVERT 


EXTERNAL BANK 


PAGE 


n n n o n c 
0UU3U5 


* 










n n n o n r 
UUU3U6 


* 


INPUT : 


INTERNAL BKPG 


LOW (X) 


n n n o n "7 
UUU3U / 


* 








HIGH (Y) 


n n n o n o 
UUU3U8 


* 


OUTPUT : 


EXTERNAL BANK 


(X) 


n n n i n n 
UUU3U9 






PAGE 


(Y) 


000310 


* 


ERROR: 


NO ERROR CHECKING DONE. ASSUMES THAT 


000311 


* 


ARE VALID. 






000312 


* 










000313 






REP 




60 


000314 


* 










000315 


CNVRT . XBP 


EQU 




* 


000316 


* 










000317 


* 


CONVERT 


FROM INTERNAL 


TO EXTERNAL FORMAT 


000318 


* 










000319 






TXA 







BANK < "F" 



BANK = "10" 



SHIFT BANK RIGHT ONE BIT 
INTO HIGH BIT OF PAGE BYTE. 



; REGION RETURNED IN A REG. 
; ERR - INVALID BANK PAGE 



; NORMAL EXIT 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



ASL A 
TXA 

AND #$7F 

TAX 

TYA 

ROL A 
TAY 

* CASE OF BANK: ADD PAGE BIAS 



TXA 

CPY 
BEQ 
BCS 

CLC 
ADC 
JMP 

CLC 
ADC 



#$F 

CNVX020 
CNVX010 



#$20 
CNVX020 



#$80 



BANK = "F" 



BANK < "F" 



BANK = "10" 



* EXCHANGE X & Y 



CNVX020 



PHA 

TYA 

TAX 

PLA 

TAY 

RTS 

PAGE 

REP 



; NORMAL EXIT 



60 



REGION 



* INPUT: INTERNAL BKPG LOW (X) 

* " HIGH (Y) 

* OUTPUT: REGION (A) 

* INTERNAL BKPG LOW (X) UNCHANGED 

* " HIGH (Y) 

* ERROR: CARRY SET ("INVALID BANK/PAGE") 



REP 

EQU 
STX 
STY 



60 



RGN.BKPG 
RGN.BKPG+1 



* IF BANKPAGE>PHY2LIM THEN ERR 



LDA 
CMP 
LDA 
SBC 
BCC 



#>PHY2LIM 
RGN . BKPG 
#<PHY2LIM 
RGN.BKPG+1 
RGN. ERR 



ERR - INVALID BANK PAGE 



* IF BANKPAGE>=PHY2BASE THEN REGION: =2 



LDA 
CMP 
LDA 
SBC 
BCC 
LDA 
BNE 



RGN . BKPG 

#>PHY2BASE 

RGN.BKPG+1 

#<PHY2BASE 

RGN010 

#2 

RGN040 



* IF BANKPAGE>PHY1LIMIT THEN ERR 



RGN010 



LDA 
CMP 
LDA 
SBC 
BCC 



#>PHY1LIM 
RGN . BKPG 
#<PHY1LIM 
RGN.BKPG+1 
RGN. ERR 



ERR - INVALID BANK PAGE 



* IF BANKPAGE>=PHY1BASE THEN REGION :=1 



LDA 
CMP 
LDA 
SBC 
BCC 



RGN.BKPG 

#>PHY1BASE 

RGN.BKPG+1 

#<PHY1BASE 

RGN020 
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000401 










LDA 


#1 


000402 










BNE 


RGN040 


000403 


* 












000404 


* 


IF BANKPAGE>VIRTUAL LIMIT THEN ERR 


000405 


* 












000406 


RGN020 






LDA 


>VRT . LIM 


000407 










CMP 


RGN . BKPG 


000408 










LDA 


>VRT . LIM+1 


000409 










SBC 


RGN . BKPG+1 


000410 










BCC 


RGN . ERR 


000411 










LDA 


#0 


000412 


* 












000413 


RGN040 






CLC 




000414 










RTS 




000415 


* 












000416 


RGN . ERR 






SEC 




000417 










RTS 




000418 










PAGE 




000419 










REP 


60 


000420 


* 












000421 


* 


GET FREE 








000422 


* 












000423 


* 


INPUT : 


PREVIOUS SEG # 


(A) 


000424 


* 


OUTPUT 


: NEW SEG # 


(A) 


000425 


* 


ERROR: 


CARRY 


SET ("SEG 


TBL FULL") 


000426 


* 












000427 










REP 


60 


000428 














000429 


GET . FREE 




EQU 


* 


000430 


* 












0004 31 


* 


SAVE PREV 


SEG 


# IN X 




000432 


* 


NOTE: 


PREV 


SEG # CARRIED IN X 


000433 


* 




NEW 


SEG 


# CARRIED 


IN Y 


000434 


* 












000435 










TAX 




000436 


* 












000437 


* 


IF NO 


FREE 


ENTRIES THEN 


ERR 


000438 


* 












000439 










LDA 


ST. FREE 


000440 










CMP 


#$80 


000441 










BEQ 


GTFR.ERR 


000442 


* 












000443 


* 


TURN OFF FREE 


FLAG (BIT7) AND DELINK 


000444 


* 












000445 










AND 


#$7F 


000446 










TAY 




000447 










LDA 


ST. FLINK, Y 


000448 










STA 


ST. FREE 


000449 


* 












000450 


* 


IF PREV SEG # 


IS NULL THEN LINK NEW 


000451 


* 


OF SEGMENT 


LIST 




000452 


* 












000453 










CPX 


#0 


000454 










BNE 


GTFR010 


000455 










LDA 


ST. ENTRY 


000456 










STA 


ST. FLINK, Y 


000457 










LDA 


#0 


000458 










STA 


ST. BLINK, Y 


000459 










STY 


ST. ENTRY 


000460 










JMP 


GTFR020 


000461 


* 












000462 


* 


OTHERWISE 


LINK NEW ENTRY TO PREV SEG 


000463 


* 












000464 


GTFR010 






LDA 


ST. FLINK, X 


000465 










STA 


ST. FLINK, Y 


000466 










TXA 




000467 










STA 


ST. BLINK, Y 


000468 










TYA 




000469 










STA 


ST. FLINK, X 


000470 


* 












000471 


* 


IF ST. 


FLINK (NEW) ONULL 


THEN 


000472 


* 


ST. 


BLINK (ST. FLINK (NEW) ) :=NEWSEG # 


000473 


GTFR020 






LDA 


ST. FLINK, Y 


000474 










BEQ 


GTFR030 


000475 










LDA 


ST. FLINK, Y 


000476 










TAX 




000477 










TYA 




000478 










STA 


ST. BLINK, X 


000479 


* 












000480 


* 


RETURN 


WITH NEW SEG # 




000481 


* 













; "N" FLAG ALWAYS REFLECTS REGION VAL IN A REG! 
; NORMAL EXIT 



INVALID BANK PAGE 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 



GTFR030 



ZZEND 
ZZLEN 



TYA 
CLC 
RTS 

LDA 
JSR 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



; NORMAL EXIT 



fSEGTBLFULL 
SYSERR 

ON 

ZZEND-ZZORG 
ZZLEN-LENMEMMG 
2, "SOSORG 



FILE IS INCORRECT FOR MEMMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR. C. SRC 

************************************************************************* 



End of File 



Lines: 500 Characters: 10157 
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FILE : "SOS. OPRMSG. SRC. TEXT" 



000001 


*********************************************************************** 


000002 


* 


APPLE /// SOS 1.3 SOURCE CODE FILE: OPRMSG. SRC 


000003 








000004 


* 


ASSEMBLER: APPLE ] [ 65 


02 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 








000006 




SBTL 


"SOS 1.1 OPERATOR MESSAGE /REPLY" 


00000 / 




REL 




r\ n n r\ n o 

000008 




INCLUDE 


SOSORG, 6,1,254 


r\ n r\ r\ n n 

000009 




ORG 


ORGOMSG 


000010 


ZZORG EQU 


* 


r\ n r\ r\ i t 

000011 




MSB 


OFF 


000012 




REP 


60 


000013 








000014 




COPYRIGHT (C) 


APPLE COMPUTER INC. 1981 


000015 




ALL 


RIGHTS RESERVED 


000016 








000017 




REP 


60 


000018 








000019 




THIS MODULE CONTAINS 


THE BLOCK FILE MANAGERS ' S OPERATOR 


r\r\ r\ r\ n r\ 

000020 




INTERFACE. IT DISPLAYS A MESSAGE IN A FOUR LINE BY 


000021 




FOURTY COLUMN WINDOW, 


THEN WAITS FOR THE USER TO TOGGLE 


000022 




THE ALPHA-LOCK KEY BEFORE RETURNING. 


000023 








000024 




THE VERTICAL BLANKING 


FLAGS AND COMPOSITE BLANKING 


000025 




TIMER ARE USED TO MAINTAIN THE DISPLAY. MEMORY PAGE 


r\ n r\ r\ n r 

000026 




$02 IS USED FOR TEMPORARY STORAGE. ON EXIT, ALL 


000027 


* 


RESOURCES ARE RESTORED TO THEIR PREVIOUS STATES. 


r\ n r\ r\ n o 

000028 


* 






000029 


* 


ENTRY POINT: OPMSGRPLY 


000030 








000031 




PARAMETERS: X — MESSAGE ADDRESS (LOW BYTE) 


000032 




Y — MESSAGE ADDRESS (HIGH BYTE) 


000033 


* 


(THE MESSAGE MUST 


RESIDE IN THE CURRENT BANK) 


000034 


* 






r\ n n r\ o it 

000035 


* 


RESULT: A — RESPONSE KEYSTROKE 


000036 


* 


X, Y — UNDEFINED 


00003 / 


* 






000038 




REP 


60 


000039 








000040 








000041 




ENTRY 


OPMSGRPLY 


000042 


* 






000043 




EXTRN 


SCRNMODE 


000044 




PAGE 




000045 


* 






000046 


* 


HARDWARE EQUATES 




000047 


* 






000048 


Z 


REG EQU 


$FFD0 


000049 


E 


REG EQU 


$FFDF 


000050 








000051 


KB PORT EQU 


$C008 


000052 


* 






000053 


BELL EQU 


$C040 


000054 


* 






r\ n r\ r\ c; it 

000055 


VM0 EQU 


$C050 


000056 


VM1 EQU 


$C052 


000057 


VM2 EQU 


$C054 


000058 


VM3 EQU 


$C056 


000059 








000060 


E 


T2 EQU 


$FFE8 


OUOOfel 


E 


ACR EQU 


$FFEB 


000062 


E 


PCR EQU 


$FFEC 


000063 


E 


IFR EQU 


$FFED 


000064 


E 


IER EQU 


$FFEE 


000065 


* 






000066 




ZERO PAGE DECLARATIONS 


000067 








000068 




DSECT 




000069 


ZPBASE EQU 


$200 


000070 




ORG 


$0000 ;ZERO PAGE DECLARATIONS 


000071 


MSGPTR DS 


2 /MESSAGE POINTER 


000072 


MSGIDX DS 


1 


000073 


* 






000074 


SCRNIDX DS 


1 


000075 


SCRNPTR DS 


2 


000076 


DATAPTR DS 


2 
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000077 


DATABUF 




DS 




160 






000078 


* 
















n n n n "~i n 

000079 


SV 


ZREG 




DS 




1 






n n n n o n 

000080 


SV.EREG 




DS 




1 






000081 


SV.SMODE 


DS 




1 






n n n n o n 

000082 


SV.EACR 




DS 




1 






n n n n o o 

000083 


SV.EPCR 




DS 




1 






000084 


SV 


EIER 




DS 




1 






000085 


















000086 


FLAG 




DS 




1 






000087 








DEND 










n n n n o o 

000088 








PAGE 










000089 


OPMSGRPLY 


EQU 




* 






000090 


















n n n n ni 

000091 


















000092 




SAVE 


CURRENT 


VALUES 


AND 


SET UP ZERO 


PAGE, 




000093 




ENVIRONMENT, 


SCREEN 


MODE, AND E.6522 


REGISTERS . 


000094 


















000095 








PHP 










000096 








SEI 










00009 / 








LDA 




Z .REG 






n n n n n n 

000098 








STA 




ZPBASE+SV. ZREG 


; SAVE ZERO PAGE 


n n n n r\ rs 

000099 








LDA 




#<ZPBASE 






000100 








STA 




Z . REG 






000101 








STX 




MSGPTR 




;SAVE MESSAGE ADDRESS 


000102 








STY 




MSGPTR+1 






000103 








LDA 




E . REG 






000104 








STA 




SV.EREG 




;SAVE ENVIRONMENT 


000105 








AND 




#55F 






000106 








ORA 




#$40 






00010 / 








STA 




E.REG 




; SCREEN OFF, I/O SPACE ON 


000108 








LDA 




SCRNMODE 






n n n *\ nn 

000109 








STA 




SV.SMODE 




; SAVE SCREEN MODE 


n n n i i r\ 

000110 








LDA 




#500 






000111 








STA 




SCRNMODE 






000112 








BIT 




VM0 




;SET 40 COLUMN 


000113 








BIT 




VM1 




; BLACK & WHITE TEXT 


000114 








BIT 




VM2 






000115 








BIT 




VM3 






000116 








LDX 




E.ACR 






000117 








TXA 










000118 








AND 




#$20 






000119 








STA 




SV.EACR 




;SAVE AUXILIARY CONTROL REG 


000120 








TXA 










000121 








ORA 




#$20 






000122 








STA 




E.ACR 




;SET UP BL TIMER 


000123 








LDX 




E.PCR 






000124 








TXA 










000125 








AND 




#$F0 






000126 








STA 




SV.EPCR 




; SAVE PERI PHERAL CONTROL REG 


000127 








TXA 










nn n i no 
0U012O 








AND 




#$0F 






000129 








ORA 




#$60 






000130 








STA 




E.PCR 




; SET UP VBL FLAGS 


000131 








LDA 




E.IER 






000132 








AND 




#$38 






000133 








STA 




E.IER 




;MASK VBL S BL INTERRUPTS 


0UU134 








STA 




SV.EIER 




;SAVE INTERRUPT MASKS 


n n n i o c 

000135 








PLP 










n n n i ^ r 

000136 


* 
















n n n i "7 
0U013 / 


* 
















000138 




SAVE 


SCREEN 


DATA AND CLEAR MESSAGE WINDOW 




000139 


















000140 








LDX 




#3 






000141 


OPR010 




JSR 




SETPTRS 






000142 








LDY 




#39 






n n n i a o 

000143 


OPR020 




LDA 




(SCRNPTR) , Y 




;SAVE SCREEN DATA 


000144 








STA 




(DATAPTR) , Y 






n n n i /i c 

000145 








LDA 




#$A0 






000146 








STA 




(SCRNPTR) , Y 




; BLANK SCREEN 


000147 








DEY 










000148 








BPL 




OPR020 






000149 








DEX 










000150 








BPL 




OPR010 






000151 


* 
















000152 


* 
















000153 


* 


MOVE 


MESSAGE 


TO WINDOW 








000154 


* 
















000155 








BIT 




BELL 






000156 








LDX 




#$00 






000157 








STX 




MSGIDX 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 



OPR100 



OPR110 



OPR120 



JSR 


SETPTRS 


LDY 


#$00 


STY 


SCRNIDX 


LDY 


MSGIDX 


INC 


MSGIDX 


LDA 


(MSGPTR) , Y 


BEQ 


OPR110 


BMI 


OPR200 


CMP 


#$0D 


BEQ 


OPR120 


LDY 


SCRNIDX 


INC 


SCRNIDX 


ORA 


#$80 


STA 


(SCRNPTR) , Y 


CPY 


#39 


BCC 


OPR110 


I NX 




CPX 


#4 


BCC 


OPR100 



;SET UP MESSAGE 



DISPLAY MESSAGE UNTIL ALPHA-LOCK KEY TOGGLES 



OPR200 



OPR210 



LDY 


#2 


LDA 


KBPORT 


AND 


#$08 


STA 


FLAG 


JSR 


VIDEO 


LDA 


KBPORT 


AND 


#$08 


CMP 


FLAG 


BEQ 


OPR210 


STA 


FLAG 


DEY 




BNE 


OPR210 



RESTORE PREVIOUS CONTENTS OF WINDOW 



OPR400 
OPR410 



LDX 


#3 


JSR 


SETPTRS 


LDY 


#39 


LDA 


(DATAPTR) , Y 


STA 


(SCRNPTR) , Y 


DEY 




BPL 


OPR410 


DEX 




BPL 


OPR400 



RESTORE E.6522, SCREEN 
THEN RETURN TO CALLER 



MODE, ENVIRONMENT, S ZERO PAGE 



000211 




PHP 






000212 




SEI 






000213 




LDA 


E.ACR 




000214 




AND 


#$DF 




000215 




ORA 


SV.EACR 


; RESTORE AUXILIARY CONTROL REG 


000216 




STA 


E.ACR 




000217 




LDA 


E.PCR 




000218 




AND 


#$0F 




000219 




ORA 


SV.EPCR 


; RESTORE PERIPHERAL CONTROL REG 


000220 




STA 


E.PCR 




000221 




LDA 


SV.EIER 


; RESTORE INTERRUPT ENABLE REG 


000222 




ORA 


#$80 




000223 




STA 


E.IER 




000224 




LDA 


SV.SMODE 


/RESTORE SCREEN MODE 


000225 




STA 


SCRNMODE 




000226 




LSR 


A 




000227 




BCC 


OPR500 




000228 




BIT 


VM0 + 1 


; RESTORE VIDEO MODE 


000229 


OPR500 


LSR 


A 




000230 




BCC 


OPR510 




000231 




BIT 


VM1+1 




000232 


OPR510 


LSR 


A 




000233 




BCC 


OPR520 




000234 




BIT 


VM2 + 1 




000235 


OPR520 


BIT 


SCRNMODE 




000236 




BVC 


OPR530 




000237 




BIT 


VM3 + 1 




000238 


OPR530 


LDA 


SV.EREG 


/RESTORE ENVIRONMENT 
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000239 


STA 




E . REG 


000240 


LDA 




SV.ZREG ; RESTORE ZERO PAGE 


000241 


STA 




Z .REG 


000242 


PLP 






000243 


RTS 






000244 


PAGE 






000245 


REP 




60 


000246 








000247 


* SUBROUTINE VIDEO 






000248 








000249 


* THIS SUBROUTINE POLLS THE VERTICAL-BLANKING AND 


000250 


* COMPOSITE-BLANKING 


-TIMER FLAGS AND TURNS THE SCREEN 


000251 


* OFF AND ON SO THAT 


ONLY 


THE MESSAGE WINDOW WILL BE 


000252 


* DISPLAYED. 






000253 








000254 


* THE E.6522 MUST BE 


INITIALIZED SO THAT E.CB2 FLAGS THE 


000255 


* POSITIVE EDGE OF VBL AND E.T2 COUNTS BL PULSES. THE 


000256 


* INTERRUPTS MUST BE 


MASKED AND THE PROPER COUNT MUST 


000257 


* ALREADY BE STORED 


IN THE LOW ORDER BYTE OF E.T2. 


000258 








000259 


* ENTRY: VIDEO 






000260 








000261 


* PARAMETERS : INTERRUPT 


SYSTEM DISABLED 


000262 








0002 63 


* EXIT: A — UNDEFINED 




0002 64 


* X, Y — PRESERVED 


000265 








000266 


REP 




60 


000267 








000268 


VIDEO EQU 






000269 


LDA 




E.IFR 


000270 


AND 




#$28 ; GET VBL & BL FLAGS 


000271 


BEQ 




VID030 


000272 


STA 




E.IFR ; CLEAR FLAGS 


000273 


AND 




#$20 ;WHICH FLAG? 


000274 


BNE 




VID010 ; BL 


000275 








000276 


LDA 




#$1F 


000277 


STA 




E.T2 ;SET UP BL TIMER 


000278 


LDA 




#$00 


000279 


STA 




E.T2+1 


000280 


LDA 




E.REG 


000281 


ORA 




#$20 ;SET UP FOR SCREEN 


000282 


SEC 






000283 


BCS 




VID020 


000284 








000285 


VID010 LDA 




E.REG 


000286 


AND 




#$DF ;SET UP FOR SCREEN 


000287 


CLC 






000288 








000289 


VID020 STA 




E.REG 


000290 


LDA 




#$00 


000291 


ROR 




A 


000292 


STA 




SCRNMODE 


000293 


VID030 RTS 






000294 


PAGE 






000295 


REP 




60 


000296 








000297 


* SUBROUTINE SETPTRS 






000298 








000299 


* THIS SUBROUTINE SETS UP 


THE POINTERS TO THE MESSAGE 


000300 


* WINDOW AND DATA SAVE AREA. 


000301 








000302 


* ENTRY : SETPTRS 






000303 








000304 


* PARAMETERS : X — 


LINE 


NUMBER [0..3] 


r\ n n o n it 

000305 








000306 


* EXIT: A — UNDEFINED 




000307 


* X, Y — PRESERVED 


000308 








000309 


REP 




60 


000310 








000311 


SETPTRS EQU 




* 


000312 


TXA 






000313 


LSR 




A 


000314 


ORA 




#$04 


000315 


STA 




SCRNPTR+1 


000316 


LDA 




#$00 


000317 


ROR 




A 


000318 


STA 




SCRNPTR 


000319 


LDA 




#<DATABUF 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 



ZZEND 
ZZLEN 



STA 
LDA 
STA 
RTS 

EQU 
DFB 
DFB 
DFB 
DFB 
LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



DATAPTR+1 
DBUFADR, X 
DATAPTR 



>0*40+DATABUF 
>1*40+DATABUF 
>2*40+DATABUF 
>3*40+DATABUF 
ON 



ZZEND-ZZORG 
ZZLEN-LENOMSG 
2, "SOSORG 



FILE IS INCORRECT FOR OPRMSG" 



********************* 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: OPRMSG. SRC 

************************************************************************* 



End of File 



Lines: 342 Characters: 8079 
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FILE: "SOS . PATH . TEXT 



r\ n n r\ n i 

000001 


******************************************************** 


r\ n n r\ n o 

000002 


* a ppt t? / / / 

AJrlrijij ill 




CODE FILE: PATH 




000003 


************ 


************** 




000004 


* H Q QTMP-T 17 P ■ 
f-iO O-C-ii v lrjJ_iil.r\ . 


a ppt t? i r f, r n 9 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 










000006 










r\ n n r\ n ""7 

00000 / 


* 








r\ n n r\ n o 

000008 


* 








000009 


* 








000010 






COMMAND 


WHAT CALL? 


r\ n r\ r\ i t 

000011 


* 








000012 










000013 










000014 




LDA 


DISPTCH, X 


TRANSLATE INTO COMMAND ADDRESS 


000015 






A 


(BIT 7 INDICATES IT'S GOT A PATHNAME TO PREPROCESS) 


000016 




OTA 


CMDTEMP 




000017 




AND 


#$3F 


(BIT 6 IS REFNUM PREPROCESS, 5 IS FOR TIME, SO STRI 


000018 




TAX 






000019 




LDA 


CMDTABLE , X 


MOVE ADDRESS FOR INDIRECT JUMP. 


r\ r\ r\ r\ *~) r\ 

000020 






CMDADR 




000021 




LDA 


CMDTABLE + 1 , X 


(HIGH BYTE) 


000022 




STA 


CMDADR+1 




000023 




LDA 


#<VCB 




000024 






VCBPTR+1 


INSURE DEFAULT HI ADDRESS TO VCB BEFORE CALLS 


r\ n n r\ o it 

000025 




LDA 


tBKBITVAL 


INIT "BACKUP BIT FLAG" 


r\ n n r\ n ^ 

000026 






BKBITFLG 


TO SAY "FILE MODIFIED" 


000027 






#MAXTEMPS 


ZERO OUT SISTER PAGE FOR TEMPS 


r\ n n r\ n o 

00002b 




LDA 


#0 




000029 






SERR 


MAKE GLOBAL ERROR SAY "NONE" 


000030 






DSWGLOB 


"DISK SWITCH GLOBAL" 


000031 






DUPLFLAG 


"DUPLICATE VOLUME ON LINE" 


000032 






CFLAG 


SET "CREATE" TO NO 


000033 






BLOKSAVE 




r\ n n r\ o /i 

000034 






BLOKSAVE+1 


SET PARENT DIRECTORY TO NULL 


000035 


PT DQTC 

L-J_iJao ± O 




SISTEMPS,Y 




000036 










000037 






CLRSIS 


CARRY IS UNDISTURBED BY THIS LOOP 


000038 




BCC 


NOPATH 




000039 




JSR 


SETPATH 


GO PROCESS PATHNAME BEFORE CALLING COMMAND 


UU UU4 U 






ERRORSYS 


BRANCH IF BAD NAME. 


000041 


IN Jrr\ 1 n 


ASL 


CMDTEMP 


TEST FOR REFNUM PREPROCESSING 


000042 






NOPREREF 




r\ r\ r\ r\ a o 

000043 




JSR 


FINDFCB 


GO SET UP POINTERS TO FCB AND VCB OF THIS FILE. 


r\ n n r\ /i yi 
00U044 




BCS 


ERRORSYS 


BRANCH IF ANY ERRORS ARE ENCOUNTERED. 


000045 


MP) PP 17 PI? TP 




CMDTEMP 


LASTLY CHECK FOR NECESSITY OF TIME STAMP. 


000046 




BCC 


TSWVRFY 




000047 




LDX 


#DATELO 


PASS Z PAGE ADDRESS OF WHERE TO RETURN DATE/TIME 


000048 






DATETIME 


(NO ERROR POSIBLE) 


000049 


1 DVv V r\r I 


LDX 


COMMAND 


TEST FOR NECESSITY OF VOLUME VERIFICATION 


000050 




LDA 


#PREPATH+PREREF+PRETIME ; TO ENSURE VCB IS SET 


000051 




™ 


DISPTCH, X 




000052 






EXECUTE 




000053 




LDY 


#VCBSTAT 




000054 




LDA 


(VCBPTR) ,Y 




r\ n r\ r\ c; it 

000055 




AND 


#DSWITCH 


WAS THE VOLUME PREVIOUSLY SWITCHED? 


000056 






EXECUTE 




000057 




DEY 




GET DEVICE NUMBER 


000058 




LDA 


(VCBPTR) ,Y 




000059 




STA 


DEVNUM 




000060 




JSR 


VERFYVOL 


SEE IF PROPER VOLUME NOW ON LINE 


000061 




BCC 


CLRDSWT 


BRANCH IF YES 


n n n n r o 
000062 




JSR 


USRREQ 


OTHERWISE REQUEST IT BE PUT ON LINE 


000063 




BCC 


DVERIFY 


USER SEZ S/HE DID: CHECK IT OUT 


000064 




LDA 


#VNFERR 


VOLUME NOT FOUND IF USER REFUSES 


000065 




BNE 


ERRORSYS 


REPORT ERROR (BRANCH ALWAYS) 


000066 


CLRDSWT 


LDY 


#VCBSTAT 


GET VOLUME 


000067 




LDA 


(VCBPTR) ,Y 


STATUS 


000068 




AND 


#$FF-DSWITCH 


TURN OFF DISK SWITCH 


000069 




STA 


(VCBPTR) ,Y 


SO WE WON'T VERIFY NEXT TIME 


000070 


EXECUTE 


JSR 


GOCMD 


EXECUTE COMMAND 


000071 




BCC 


GOODOP 


BRANCH IF SUCCESSFUL 


000072 




CMP 


#XDISKSW 


DISK SWITCH? 


000073 




BNE 


ERRORSYS 


NO, REPORT SOME OTHER 


000074 




LDY 


#VCBSTAT 


MARK VCB WITH SWITCH 


000075 




LDA 


(VCBPTR) ,Y 




000076 




AND 


#$FF-DSWITCH 


TO ENSURE VOLUME VERIFIED 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



ERRORSYS 
GOODOP 



DROP INTO 



BPL 
ORA 
STA 
JMP 

JSR 
RTS 



PAGE 

EQU 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

EQU 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 

PAGE 

LDA 
STA 
LDA 
STA 
LDA 
STA 
1 SYNPATH' 

LDA 
STA 
STA 
LDA 
STA 
STA 
LDX 
TXA 
STA 
TAY 
LDA 
BMI 
BEQ 
STA 
JSR 
LDA 
CMP 
BEQ 
CMP 



ERRCMD 
IDSWITCH 
(VCBPTR) ,Y 
BFMGR 

SYSERR 



(CMDADR) 



CREATE 

DESTROY 

RENAME 

SET INFO 

GET INFO 

VOLUME 

SETPREFX 

GET PRE FX 

OPEN 

NEWLINE 

READ 

WRITE 

CLOSE 

FLUSH 

SETMARK 

GETMARK 

SETEOF 

GETEOF 



PREPATH+PRETIME+0 

PRE PATH+PRE T IME + 1 

PREPATH+PRETIME+2 

PRE PATH+PRE T IME + 3 

PREPATH+4 

5 

6 

7 

PREPATH+8 

PREREF+$9 

PREREF+$A 

PREREF+$B 

PRETIME+$C 

PRETIME+SD 

PREREF+$E 

PREREF+$F 

PREREF+$10 

PREREF+$11 



C . PATH 

TPATH 

C . PATH+1 

TPATH+1 

SISPATH 

SISTPATH 



#>PATHBUF 

PATHNML 

WRKPATH 

#<PATHBUF 

PATHNMH 

WRKPATH+1 

#0 

(PATHNML, X) 

(TPATH, X) 
ERRSYN 
ERRSYN 
PATHCNT 
INCTPTH 

(TPATH, X) 
#DLIMIT 
BUMPATH 
#$2E 



NO FILES OPEN SO DSWITCH CANT APPLY 



TRY THE COMMAND AGAIN 



GOOD RETURN 



CREATE 

DESTROY 

RENAME 

SETINFO 

GETINFO 

VOLUME 

SETPREFIX, PATHNAME MOVED TO PREFIX BUFFER 

GETPREFIX 

OPEN 

NEWLINE 

READ 

WRITE 

CLOSE 

FLUSH, REFNUM MAY BE ZERO TO FLUSH ALL. 

SETMARK 

GETMARK 

SET EOF 

GET EOF 



FOR A REGULAR PATHNAME, 

SET UP TEMP POINTER TO PROCESS 

PATHNAME AND CHECK FOR SYNTAX ERRORS 



(LEAVE CALL PARAMETERS ALONE! 



SET UP DEFAULT ADDRESS FOR 

SYNTAXED PATHNAME - 

LENGTH, NAME, LENGTH, NAME, ETC. 



(ASSUMES FULL PATHNAME, NO PREFIX) . 
USE INDEXED INDIRECT FOR SOURCE PATHNAME 
SET BEGINNING OF PATH 

TO ZERO TO INDICATE NOTHING PROCESSED. 
GET TOTAL LENGTH OF SOURCE PATHNAME 



(THIS IS USED AS A 'COUNT-DOWN') 

INCREMENT SOURCE POINTER 

GET FIRST CHARACTER OF PATHNAME 

IS IT A FULL PATHNAME (NO PREFIX) 

YES, WE'RE READY TO DO IT. 

IS IT A DRIVE NAME ' . ' ? 
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000158 




BNE 


ADPREFIX 


NO, ADD PREFIX TO BEGINNING 


000159 


DRIVENAM 


LDA 


(TPATH, X) 


MOVE DRIVE NAME FOR VOLUME CALL 


000160 




CMP 


#DLIMIT 


HAVE WE MOVED ENTIRE NAME? 


000161 




BEQ 


PREVOLM 


YES, PROCESS IT . 


000162 




I NY 




(IF THIS IS THE FIRST, MAKE ROOM FOR LENGTH OF NAME) 


000163 




STA 


(WRKPATH) , Y 




000164 




JSR 


INCTPTH 


BUMP POINTER TO GIVEN NAME. 


000165 




DEC 


PATHCNT 




000166 




BNE 


DRIVENAM 




000167 




BEQ 


PREVOLM1 




000168 










000169 




PAGE 






000170 


PREVOLM 


JSR 


INCTPTH 


MAKE IT SO POINTING PAST DELIMITER. 


000171 




DEC 


PATHCNT 




000172 


PREVOLM1 


TYA 




SAVE LENGTH OF DRIVE NAME . 


00017 j 




STA 


(WRKPATH, X) 




000174 




LDA 


#>PATHBUF 


POINT AT PATHNAME BUFFER FOR DEVICE ID CALL. 


000175 




STA 


DVNAMP 




000176 




LDA 


#<PATHBUF 




000177 




STA 


DVNAMP +1 




000178 




LDA 


#0 


MAKE VIRTUAL POINT AT SWITCHED IN BANK. 


000179 




STA 


SISTER+DVNAMP+1 




000180 




JSR 


SRCHDEV 


GO IDENTIFY WHICH VOLUME 


000181 




BCC 


PREVOLM2 


BRANCH IF NO ERROR 


000182 




CMP 


#VNFERR 


WAS IT REPORTED AS 'VOLUME NOT FOUND'? 


000183 




BNE 


SPTHERR 


NO SOME OTHER ERROR WAS ENCOUNTERED. 


000184 




LDX 


DUPLFLAG 


YES, WAS IT NOT FOUND BECAUSE SOME OTHER 'OPEN' VOLUME 


000185 




BEQ 


SPTHERR 


NO, IT SIMPLY WASN'T FOUND. 


000186 




LDA 


fDUPVOL 


(CARRY IS SET) 


000187 




RTS 






000188 










000189 


PREVOLM2 


LDY 


#0 


(X CONTAINS AN INDEX TO VCB) 


000190 




LDA 


VCB,X 


GET VOLUME NAME LENGTH. 


000191 




STA 


PATHBUF, Y 




000192 


SPATH2 


I NX 




MOVE VOLUME NAME INTO PATH NAME BUFFER IN 


000193 




I NY 




PLACE OF DISK DEVICE NAME ( ' . Dl ' OR SIMULAR) 


000194 




LDA 


VCB, X 




000195 




STA 


PATHBUF, Y 




000196 




CPY 


PATHBUF 


HAVE ALL CHARACTERS BEEN MOVED? 


000197 




BNE 


SPATH2 




000198 




LDX 


#0 


RESET X FOR INDEXING 


000199 




STX 


PATHNML 




000200 




LDA 


#<PATHBUF 




000201 




STA 


PATHNMH 




000202 




LDA 


PATHCNT 


IS THAT ALL THERE IS? 


000203 




BNE 


S PATH 3 


NO, MORE TO COME. . . 


000204 




CLC 






000205 




JMP 


ENDPATH 




000206 










000207 


S PATH 3 


I NY 




BUMP TO END OF NAME+1 


000208 




STY 


WRKPATH 


RESET WORKPATH POINTER TO CURRENT. 


000209 




LDA 


#0 


RESET PATHNAME BUFFER POINTER. 


000210 




LDY 


#<PATHBUF 




000211 




BNE 


NOPREFX 


BRANCH ALWAYS . . . 


000212 










000213 


ERRSYN 


LDA 


# BAD PATH 


RETURN SYNTAX ERROR 


000214 


SPTHERR 


SEC 






000215 




RTS 






000216 










000217 


ADPREFIX 


LDA 


PFIXPTR 


GET POINTER TO BEGINNING OF THE 


000218 




LDY 


PFIXPTR+1 


PREFIX . 


000219 


NOPREFX 


STA 


PATHNML 




000220 




STY 


PATHNMH 


IF NO PRESET PREFIX, THIS IS THE SAME AS 


000221 




BNE 


FRSTCHAR 


PATHBUF ADDRESS. (BRANCH ALWAYS TAKEN) 


000222 










000223 




PAGE 






000224 










000225 


BUMPATH 


DEC 


PATHCNT 


FIRST ADJUST COUNT 


000226 




CLC 




(JUST IN CASE OF LAST CHARACTER) 


r\ n n o n -i 

00022 7 




BEQ 


ENDPATH 


(MUST OF HAD TRAILING SPACES) 


000228 




JSR 


INCTPTH 




000229 


FRSTCHAR 


LDY 


#0 


INIT COUNT FOR THIS PORTION OF THE 


000230 




TYA 




PATHNAME. ALSO PRESET LENGTH TO ZERO IN 


000231 




STA 


(WRKPATH, X) 


CASE OF TRAILING SPACES. 


000232 




LDA 


(TPATH, X) 


GET CHARACTER. 


000233 




AND 


#$7F 


IGNORE HIGH BIT. 


000234 




CMP 


#$20 


IS IT A LEADING SPACE? 


000235 




BEQ 


BUMPATH 


IF SO, IGNORE IT. 


000236 




CMP 


#$5B 


IS IT GREATER THAN (UPPER CASE) A 'Z'? 


000237 




BCC 


ALFA1 


NO, MAKE SURE IT'S AN ALPHA CHARACTER 


000238 




AND 


#$5F 


YES, ASSUME IT'S LOWER CASE, AND UPSHIFT 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



ALFA2 



ERRSYN1 
INCTPTH 

INCPTH1 



CMP 
BCS 

CMP 
BCC 
BCS 

LDA 
AND 
CMP 
BCC 
AND 
CMP 
BCS 

CMP 
BCS 
CMP 
BCS 
CMP 
BCS 
CMP 
BEQ 
CMP 
BNE 
CLC 
I NY 
STA 
DEC 
BEQ 
INC 
BNE 
INC 
BNE 
PAGE 

TYA 
STA 
BCC 
CMP 
BCS 
LDY 
SEC 
ADC 
STA 
BCC 
LDA 
JSR 

BEQ 
CMP 
BCS 
I NY 
LDA 
STA 
LDA 
BEQ 
CLC 
RTS 

JMP 

INC 
BNE 
INC 
RTS 

PAGE 

JSR 

BCC 

TAX 

LDY 

LDA 

BEQ 

TXA 

RTS 

STA 

CLC 

RTS 

LDA 

BNE 



#$5B 
ERRSYN 

#$41 

ERRSYN 

SAVPATH 

(TPATH, X) 

#$7F 

#$5B 

ALFA2 

#$5F 

#$5B 

ERRSYN 

#$41 

SAVPATH 

#$3A 

TSTDLIM 

#$30 

SAVPATH 

#DLIMIT 

ENDPATH 

#$2E 

ERRSYN 



(WRKPATH) , Y 

PATHCNT 

ENDPATH 

TPATH 

NXTCHAR 

TPATH+1 

NXTCHAR 



(WRKPATH, X) 
LSTNAME 
#$10 
ERRSYN1 
#0 

WRKPATH 

WRKPATH 

BUMPATH 

#TOOLONG 

SYSDEATH 

TSTVALD 

#$10 

ERRSYN1 

#0 

(WRKPATH) , Y 
(PATHNML, X) 
ERRSYN1 



TPATH 

INCPTH1 

TPATH+1 



SETPATH 
SETPRFX1 



(C.PATH) , Y 
RESETPFX 



PATHNML 
ERRSYN1 



WAS IT TRULY LOWER CASE? 
NO, GIVE ERROR. 

IS IT LESS THAN 'A'? 

YES! IT'S CRAP. . . 

NO, IT'S GOOD. SAVE IT. 

GET THE NEXT CHARACTER. 

THESE CHARACTERS MAY BE ALPHA, NUMERIC, 

OR A PERIOD - ONLY THE FIRST HAD TO BE ALPHA 

BRANCH IF LESS THAN 'Z' 

UPSHIFT LOWER CASE. 

NOW IS IT VALID? 

NOPE. 



IS 
YUP 
>9? 
YES 
NO, 
NO, 



IT GREATER THAN 'A'? 
IT IS WORTH SAVIN. 



<0? 

IT'S VALID NUMERIC. 
IS IT THE DELIMITER? 

YES. CARRY SET INDICATES MORE TO COME . 

IS IT A ' . ' (PERIOD) ? 

NO, IT'S AN ERROR (#@S##@!) 

; BUMP NAME LENGTH 

; IF ZERO, THAT WAS THE LAST CHARACTER 

; (CARRY CLEAR INDICATES END OF PATH) 

; BUMP POINTER TO SOURCE PATHNAME. 

; HIGH ORDER, WHEN NECESSARY. 
; BRANCH ALWAYS. 



GET CURRENT NAME LENGTH 

AND PUT IT IN FRONT OF NAME 

BRANCH IF THAT WAS THE LAST OF PATH 

WAS THE NAME ILLEGALLY LONG? 

YES, REPORT IT. 

ADJUST WORK POINTER TO END OF PREVIOUS NAME. 

REPLACE OLD POINTER. 
DO NEXT NAME. 
THIS IS A NEVER ERROR! 
(NEVER RETURNS) . 



MAKE SURE LAST ISN'T TOO LONG 

PUT A ZERO AT END OF PROCESSED PATHNAME 



SURE THERE IS A PATHNAME 
IF NOT, REPORT ERROR. 
INDICATE NO ERROR. 



; POINT AT NEXT CHARACTER 



CALL IS MADE HERE SO A 
BRANCH IF PATHNAME OK 
SAVE ERROR CODE 



NUL' PATH MAY BE DETECTED. 



TEST FOR A NUL PATHNAME 
BRANCH IF PREFIX TO BE RESET. 
RESTORE ERROR CODE 



MAKE SURE NAME STARTED WITH A 
BRANCH IF IT DID. 



'/' DELIMITER. 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



SETPRFX3 
SETPRFX4 

MOVPRFX 



SNDLMIT 
SNDPRFX1 



NULPREFX 
GOTPRFX 



LDY 
CLC 
LDA 
BNE 
DEY 
TYA 
BNE 
ADC 
TAY 
EOR 
STA 
STA 
LDA 
STA 
DEY 
BPL 
CLC 
RTS 

PAGE 

CLC 
LDA 
EOR 
ADC 
CMP 
BCC 
LDA 
RTS 

LDY 
STA 
TAY 
DEY 
BEQ 
I NY 
LDX 
DEX 
STX 
LDA 
STA 
LDA 
STA 
DEY 
BEQ 
LDA 
STA 
AND 
BEQ 
BNE 
TYA 
STA 
CLC 
RTS 
PAGE 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
BMI 
DEY 
CPY 
BCS 
TYA 
ASL 
ASL 
ASL 
ASL 
ASL 
BCC 
INC 
STA 
LDA 
LDY 
CMP 
BNE 
LDY 



FIND THE END OF THE INPUT PREFIX 

ADD LAST LOCAL NAME LENGTH TO FIND TRUE END. 



(PATHNML) ,Y 
SETPRFX3 



SETPRFX4 
WRKPATH 

#$FF 

PFIXPTR 

WRKPATH 
(PATHNML) , Y 
(WRKPATH) , Y 

MOVPRFX 



PFIXPTR 
#$FF 

#2 

C.MAXPTH 
SENDPRFX 
IBTSERR 



#0 

(C.PATH) ,Y 



NULPREFX 

PFIXPTR 

WRKPATH 
#<PATHBUF 
WRKPATH+1 
#DLIMIT 
(C.PATH) ,Y 

GOTPRFX 
(WRKPATH) , Y 
(C.PATH) ,Y 

#$F0 

SNDLMIT 

SNDPRFX1 

(C.PATH) ,Y 



FCBADDRH 
FCBPTR+1 
#0 

FCBPTR 

FCBANKNM 

SISFCBP 

C.REFNUM 

ERRNOTBLK 

#$10 
REEFER 

A 
A 

A 
A 
A 

SVFCBLO 
FCBPTR+1 
FCBPTR 
C.REFNUM 
#FCBREFN 
(FCBPTR) , Y 
ERRNOREF 
fFCBBUFN 



GET COMPLIMENT TO FIND BEGINNING ADDRESS. 
OF NEW PREFIX IN THE PREFIX BUFFER 
(PREFIX ALWAYS ENDS AT THE LAST BYTE OF BUFFER) 

MOVE IN NEW PREFIX 



AND WE'RE FINISHED! 

NO ERRORS POSIBLE FROM THIS ROUTINE. 



CALCULATE HOW BIG A BUFFER IS NEEDED TO 
PASS THE PREFIX BACK TO THE USER. 

(EVEN IF NO PREFIX, 1 BYTE IS NEEDED TO SHOW LENGTH) 
ADD 2 FOR LEADING AND ENDING "/". 
IS THERE ENOUGH SPACE IN USER'S BUFFER? 
BRANCH IF YES 

TELL USER BUFFER IS TOO SMALL. 
(CARRY IS SET TO INDICATE ERROR.) 

SAVE TOTAL LENGTH OF STRING TO BE RETURNED 



DISCOUNT TRAILING DELIMITER. 
BRANCH IF PREFIX IS SET TO NUL. 



GET BEGINNING ADDRESS OF PREFIX AGAIN 



; PLACE DELIMITER BEFORE, BETWEEN, AND AFTER LOCAL NAMES . 



; BRANCH IF ALL OF PREFIX IS TRANSFERED. 
ASSUME IT'S A CHARACTER. 

NOW TEST TO SEE IF IT WAS A LOCAL LENGTH. 
BRANCH IF IT WAS. 

GO MOVE NEXT CHAR IF IT WASN'T (ALWAYS TAKEN) . 
RETURN NUL STRING. 

INDICATE NO ERROR. 



INITIALIZE INDIRECT POINTER TO 

FILE CONTROL BLOCK (ALLOCATED WHEN SYSTEM 

WAS FIRST BOOTED) . 

NOTE: ALWAYS STARTS ON PAGE BOUNDARY. 
SET SISTE PAGE BYTE TOO... 

GET REQUESTED REFERENCE 

BRANCH IF IT'S NOT A BLOCK DEVICE REFERENCE 
(SHOULD BE IN THE RANGE OF 1-16 BEFORE DECREMENT) 
IS IT A VALID REFNUM? 
NO, THE USER'S SMOKIN DOPE! 
TO FIND ASSOCIATED FILE CONTROL STUFF, 
MULTIPLY (REFNUM-1) BY 32. 



BRANCH IF IT'S WITHIN FIRST HALF OF FCB 
BUMP TO SECOND HAVE (REFNUM>8) 
SAVE LOW ADDRESS OF REFERENCED FCB 
NOW VERIFY THAT FILE IS OPEN. 

SHOULD BE EQUAL! 

BRANCH IF THEY'RE NOT 

IT'S A LEGAL FILE, NOW SET UP 
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000401 




LDA 


(FCBPTR) , Y 


INDIRECT POINTERS TO DATA 


000402 


GTBUFFRS 


LDX 


fDATPTR 


(AND INDEX) BUFFER (S) IN ZERO PAGE 


000403 




JSR 


GETBUFADR 


GET BUFFER ADDRESS UNLESS 


000404 




BCS 


REEFER1 


BOB HAS BEEN SMOKIN DOPE. . . 


000405 




LDA 


#2 


(ASSUME AN INDEX BLOCK BUFFER IS ALSO PRESENT) 


000406 




ADC 


DATPTR+1 




000407 




STA 


TINDX+1 




000408 




LDA 


DATPTR 




000409 




STA 


TINDX 




000410 




LDA 


SISDATP 




000411 




STA 


SSTIDXH 




000412 




LDY 


#FCBDEVN 




000413 




LDA 


(FCBPTR) , Y 


MAKE SURE DEVI CE 


000414 




STA 


D . DEV 


NUMBER TEMPS MATCH 


000415 




STA 


DEVNUM 


CURRENT FILE 1 S DEVICE 


000416 




LDA 


#0 


LOOK AT ALL VOLUMES LOGGED IN 


000417 


FNDFVOL 


TAX 






000418 




LDA 


VCB+VCBDEV, X 


GET VOLUMES DEVICE NUMBER 


000419 




CMP 


(FCBPTR) , Y 


HVE WE FOUND A MATCH . 


000420 




BNE 


FNDFV 1 




000421 




LDY 


# FCB SWAP 


SWAP BYTES 


000422 




LDA 


VCB+VCBSWAP, X 


MISMATCH 


000423 




CMP 


(FCBPTR) , Y 


MEANS FILE BELONGS 


000424 




BNE 


FNDFV . 1 


TO ANOTHER VOLUME 


000425 




LDA 


VCB, X 


IS THIS AN OPEN DEVICE? 


000426 




BEQ 


FNDFV . 1 


NO, TRY ANOTHER VOLUME 


000427 




JSR 


FVOL FOUND 


YES, SAVE VCB ADDRESS 


000428 




LDA 


VCB+VCBSWAP, X 


SWAPPED? 


000429 




BEQ 


REEFER1 


NO, RETURN CALMLY TO USER 


000430 




JSR 


SWAP IN 


YES, SWAP ME IN 


000431 




BCC 


REEFER1 


RETURN WITHOUT ERROR 


000432 




LDA 


#XIOERROR 


USER REFUSED TO MOUNT PROPER VOLUME 


000433 




RTS 






000434 










000435 


FNDFV . 1 


LDY 


#FCBDEVN 


RELOAD Y WITH DEVICE INDEX 


000436 


FNDFV1 


TXA 






000437 




CLC 






000438 




ADC 


fVCBSIZE 




000439 




BCC 


FNDFVOL 


LOOP UNTIL FOUND 


000440 




LDA 


# VCB ERR 


OTHERWISE DIE A SYSTEM DEATH! 


000441 




JSR 


SYS DEATH 




000442 




PAGE 






000443 










000444 


ERRNOREF 


LDA 


#0 


DROP A ZERO INTO THIS FCB TO 


000445 




STA 


(FCBPTR) , Y 


SHOW FREE FCB 


000446 










000447 


REEFER 


LDA 


#BADREFNUM 


TELL USER THAT REQUESTED REFNUM 


000448 




SEC 




IS ILLEGAL (OUT OF RANGE) FOR THIS CALL. 


000449 


REEFER1 


RTS 






000450 










000451 


ERRNOTBLK 


LDA 


#NOTBLKDEV 


TELL USER THAT SPECIFIED DEVICE IS NOT A BLOCK 


000452 




SEC 






000453 




RTS 






000454 










000455 


SVCBADR 


EQU 






000456 


FVOL FOUND 


STX 


VCBPTR 




000457 




LDA 


#VCB/256 




000458 




STA 


VCBPTR+1 




000459 




CLC 




INDICATE LEGAL REFNUM 


000460 




RTS 






0004 61 




PAGE 






000462 


* NAME : 


GETDNUM 






000463 


* FUNCTION: 


GET DEVICE NUMBER 




000464 


* INPUT : 


DVNAMP SETUP 




000465 


* OUTPUT : 


DEVNUM IN 'SCRTCH' 




000466 




' BPL ' IF 


NOT BLOCK DEV 




000467 




'BCS' IF 


NO DEVICE 




000468 


* VOLAT I LE : 


ALL REGS 






000469 










000470 


GETDNUM 


EQU 






000471 




LDA 


#>SCRTCH+1 


SET UP POINTER TO SCRATCH AREA 


000472 




STA 


DVDNUM 


TO RECIEVE DEVICE NUMBER. 


000473 




LDA 


#SCRHIGH 




000474 




STA 


DVDNUM+1 




000475 




LDA 


#0 


PLACE A ZERO IN BANK BYTE SINCE 


000476 




STA 


SISTER+DVDNUM+1 


IT'S NOT IN A BANK. 


000477 




STA 


VCBPTR+1 




000478 




LDA 


#4 


THE ' GET . DNUM ' COMMAND. 


000479 




STA 


DHPCMD 




000480 




JSR 


RPEATIO0 


CALL BOB FOR THE INFO. 


000481 




RTS 




RETURN WITH DEVMGR CCS 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 



NAME : 
FUNCTION: 



VLOOK00 



VNOTEQ 



VLOOK0 



SRCHDEV 
SEARCH FOR 

EQU 
JSR 
BCS 
BPL 
LDA 
STA 
TAX 
LDA 
BNE 
STX 
EQU 
LDA 
BNE 
LDA 
EOR 
BEQ 
LDA 
BNE 
EOR 
BEQ 
JSR 
LDA 
BPL 
LDA 
STA 
TXA 
PHA 
JSR 
BCC 
CMP 
BEQ 
JSR 
BCS 
LDX 
JSR 
BCS 
PLA 
LDX 
RTS 

DS 



MOSWIT CLC 
PLA 
TAX 
RTS 

RETURN TO CALLER X=POINTER TO VCB. 



GETDNUM 
VOLERR1 
ERRNOTBLK 
#0 

NFOPEN 

VCB+VCBSTAT,X 

VLOOK00 

NFOPEN 

VCB+VCBSWAP,X 

VNOTEQ 

VCB+VCBDEV, X 

SCRTCH+1 

VLOOK0 

VCB,X 

VLOOK2 

VCB,X 

VLOOK1 

SVCBADR 

VCB+VCBSTAT,X 

VLOOK3 

SCRTCH+1 

DEVNUM 



VERFYVOL 

VNOSWIT 

fVNFERR 

VLOOK7 

TSTSOS 

KNOTSOS 

#0 

SNSWIT1 
VNOSWIT1 

VCBPTR 



VOLERR1 
VNOSWIT1 



VLOOK1 
VLOOK2 



VLOOK3 



SEC 
RTS 
CMP 
BNE 
TAX 
PLA 
TXA 
SEC 
RTS 
PLA 
LDA 
RTS 

PLA 
JMP 

JSR 
TXA 
CLC 
ADC 
BCC 
LDX 
BNE 
LDX 
JSR 
LDA 
BEQ 
LDA 



tDUPVOL 
VLOOK7 



#NOTSOS 



NOVOLM 
SVCBADR 



IVCBSIZE 

VOLOOK 

VCBPTR+1 

VLOOK3 

NFOPEN 

SVCBADR 

VCBPTR+1 

NOVOLM 

SCRTCH+1 



GET DEVNUM 

BRANCH IF ANY ERROR OTHER THAN NOTBLOCKDEV 

BRANCH IF NOT A BLOCK DEVICE 

NOW SEARCH FOR A VOL WITH THE 

INIT TEMP VCB POINTER 

SAME DEVNUM AS SCRTCH 

ANY FILES OPEN? 

BRANCH IF SOME FILE OPEN 

ELSE SAVE THE VCB ENTRY PTR 

VOLUME SWAPPED OUT? 

YES, CANT BE THE ACTIVE VOL 



BRANCH IF MATCH. 

IS THIS A FREE VCB? 

BRANCH IF NOT FREE, OTHEWISE TAKE NEXT BRANCH. 

TEST FOR A VOLUME NAME LENGTH 

BRANCH IF VCB FREE 

SAVE CURRENT ADDRESS OF VCB. 

TEST FOR ANY OPEN FILES. 

LOG THE VOLUME IN JUST TO BE SURE 

SET UP 

DEVICE NUMBER ARGUMENT 
SAVE PTR TO VCB 
ON STACK 

COMPARES VCBPTR TO DEVNUM CONTENTS 

SEE IF NOTHING IN DRIVE 
BRANCH IF NOTHING IN DRIVE 

IS THE VOLUME AN UNRECOGNIZED SOS OR (UCSD OR DOS)? 

DEFINITELY NOT SOS FORMAT 

START VCB SCAN AT BEGINNING 

FIND A FREE VCB AND LOG IN THE NEW GUY 

CAN'T LOG IN NEW GUY — KEEP OLD 

PASS BACK X AS NEW VCB 



TEMP VCB PTR FOR VCB W/ NO FILES OPEN 

RETURN IT TO USER 
REMEMBER OLD VCB PTR 
AND PASS BACK TO USER 



; RETURN SOME VOLUME ERROR 



; REPORT OTHER ERROR FROM LOGGING IN NEW VOL AS VNF 

; MAKE STACK CORRECT 
; RESTORE ERROR CODE 

; IF DUPLICATE VOLUME ERROR, RETURN FACT TO USER 
; MAKE STACK CORRECT 
; FOR THE PASCAL FOLK 

; NOTSOS MEANS UCSD OR DOS OR BAD SOS VOLUME 

; THROW AWAY OLD VCB PTR 

; AND REPORT VOLUME NOT FOUND 

; SAVE ADDRESS OF FREE VCB. 
; BUMP TO NEXT VOLUME ENTRY. 



BRANCH IF MORE TO CHECK. 
FREE VCB YET FOUND? 
BRANCH IF YES 
SAVE POSSIBLE FREE VCB 
AND SAVE PTR PERMANENTLY 
WAS A FREE VCB FOUND? 

BRANCH IF VOLUME CAN'T BE LOGGED IN. 
GET DEVICE NUMBER 
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000563 




STA 


DEVNUM 


; SAVE DEVICE NUMBER. 


000564 




LDA 


#1 


; FAKE OUT 1 LOKVOL ' 


000565 




STA 


SCRTCH 


; TO THINK TO LOOK ONLY ONCE. 


000566 




STA 


TOTDEVS 




000567 




LDA 


#<VCB 




000568 




STA 


VCBPTR+1 




000569 




STA 


PATHNMH 


; (TO MAKE HARMLESS) 


000570 




LDA 


#0 




000571 




STA 


S I STER+ PATHNMH 




000572 




LDX 


VCBPTR 




000573 




STX 


PATHNML 




000574 




STA 


VCB, X 


; FORCE CURRENT VOLUME OFF LINE, THEN LOG WHATS 


000575 




JSR 


FREEVCB 


; GO READ ROOT DIRECTORY. 


000576 




BCS 


RTVOLNAM 


; RETURN ANY ERRORS 


000577 




LDX 


VCBPTR 


; MAKE SURE VOLUME WAS LOGGED IN 


000578 




LDA 


VCB, X 




000579 




BEQ 


NOVOLM 


; RETURN ERROR 


000580 




RTS 




; ELSE RETURN NORMALLY 


000581 


NOVOLM 


LDA 


#VNFERR 


; TELL USER ' NO VOLUME ' 


000582 




SEC 






000583 


RTVOLNAM 


TAX 




; SAVE REAL ERROR WHILE DUPLICATE IS CHECKED 


000584 




LDA 


DUPLFLAG 




000585 




BEQ 


RTV1 


; BRANCH IF NOT DUPLICATE 


000586 




LDX 


#DUPVOL 




000587 


RTV1 


TXA 




; RECALL ERROR 


000588 




RTS 






000589 










000590 




CHN 


VOLUME ,4,1 




000591 










000592 


************************************************************* 


000593 


* END OF APPLE 


/// SOS 1 


3 SOURCE CODE FILE: 


PATH 


000594 


************************************************************************* 


000595 










000596 










End of 


File -- Lines : 


596 Characters: 24986 
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FILE: "SOS. POSN. OPEN. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: POSN . OPEN 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



GETMARK 
GMARK1 



SMARK1 
CMPEOF 



SUBMARK 
SUBPOSN 



ADJMRK 
ADJMRK0 



PAGE 

LDY 

LDA 

PHA 

I NY 

CPY 

BNE 

LDA 

LDY 

PHA 

PLA 

STA 

DEY 

BPL 

CLC 

RTS 

JSR 
BCC 
RTS 
LDX 
LDY 
LDA 
CMP 
BCC 
BNE 
DEY 
DEX 
BPL 
BMI 
LDA 
RTS 

LDA 
BNE 
LDX 
LDY 
LDA 
LSR 
BCS 
BEQ 
LDA 
ADC 
STA 
I NY 
I NX 
BNE 
BCS 
BEQ 

PAGE 

BNE 

LDY 

LDA 

SBC 

STA 

I NY 

I NX 

BNE 

BCS 

LDA 

SEC 

RTS 

LDX 
LDA 
STA 
DEX 
BPL 
CLC 
RTS 



tFCBMARK 
(FCBPTR) , Y 



#FCBMARK+3 

GMARK1 

#0 

#3 



(C.MRKPTR) , Y 
MOVMRK 



ADJMARK 
SMARK1 

#2 

#FCBEOF+2 
TPOSLL,X 
(FCBPTR) ,Y 
CKSAMBLK 
ERRMEOF 



CMPEOF 

CKSAMBLK 

tPOSNERR 



C.MARK+3 

ERRPOSN 

#$FD 

tFCBMARK 
C . BASE 
A 

SUBMARK 
ADJMRK 
(FCBPTR) ,Y 
C.MARK+3, X 
>TPOSLL-$FD,X 



ADDPOSN 
ERRPOSN 
ADJMRK 1 



SUBPOSN 
#FCBEOF 
(FCBPTR) ,Y 
C.MARK+3, X 
>TPOSLL-$FD,X 



SUBPOSN 
ADJMRK1 
tPOSNERR 



#2 

C.MARK,X 
TPOSLL,X 

ADJMRK 



MOVE CURRENT POSITION MARKER TO 
USER'S 4 BYTE BUFFER POINTED TO BY 
C.MRKPTR IN SOS ZPAGE 

USE STACK AS TEMPORARY STORAGE FOR THREE BYTE 
POSITION VALUE. 

THE FOURTH (HIGHEST ORDER) BYTE IS ALWAYS ZERO. 



MOVE TO USER'S SPACE 

IS THERE ANOTHER TO PULL FROM STACK? 
YES, GET NEXT LOWER BYTE FROM STACK. 
INDICATE NO ERROR. 



MAKE ADJUSTMENTS TO REQUESTED MARK ACCORDING TO BASE. 
BRANCH IF ADJUSTMENT WAS VALID. 

NOW COMPARE END OF FILE WITH NEW 
POSITION TO BE SURE IT'S WITHIN 
THE BOUNDS OF CURRENTLY DEFINED 
LIMITS. 

BRANCH IF MARK<EOF 

RETURN ERROR IF MARK>= EOF 



BRANCH ALWAYS 

TELL USER MARK IS OUT OF RANGE. 
(CARRY IS SET TO INDICATE ERROR) 

MAKE SURE FOURTH BYTE OF DISPLACE IS ZIP 

BRANCH TO ERR IF NOT 

ANTICIPATE OTHER THAN BASE OF ZERO 

FURTHER ASSUME IT'S A BASE OFFSET FROM CURRENT POSITION 
NOW FIND OUT WHAT IT REALLY IS. 

(CARRY SET=SUBTRACT, NON ZERO REMAINDER- OFFSET FROM EOF) 

BRANCH IF MARK IS FROM BEGINNING OF FILE 
ADD USER QUANTITY TO CURRENT 
POSITION TO FORM NEW POSITION. 

(NOTE: ZERO PAGE REFERENCE WRAPS AROUND IN Z-PAGE) 



ADD ALL THREE BYTES 
BRANCH IF OVERFLOW 
BRANCH ALWAYS 



BRANCH IF IT'S AN OFFSET FROM CURRENT POSITION 

OTHERWISE ASSUME OFFSET FROM END OF FILE. 

SUBTRACT USER QUANTITY TO FORM 

NEW POSITION. IF FINAL 

RESULT IS L.T. ZERO, THEN REPORT 

POSITION ERROR. . . 



BRANCH IF LEGAL POSITION CALCULATED. 
INDICATE ERROR 



FIRST SET UP POSITION TEMPS USED 
BY BOTH POSITION ROUTINES 



NO ERRORS 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



RDPOSN 
CKSAMBLK 



CHKDSKS1 



POSNEW1 



EQU 
EQU 
LDY 
LDA 
AND 
STA 
I NY 
LDA 
SEC 
SBC 
STA 
BCC 
CMP 
BCS 
LDA 
CMP 
BNE 
JMP 

LDY 
LDA 
BEQ 
CMP 
BCC 
JMP 

EQU 
LDY 
LDA 
STA 
JSR 
LDA 
BEQ 
JSR 
BCC 
JSR 
BCC 
LDA 
RTS 

LDY 
STA 
LDA 
SEC 
RTS 

PAGE 

LDY 

LDA 

STA 

LDY 

LDA 

AND 

BEQ 

JSR 

BCS 

LDY 
LDA 
AND 
STA 
LDA 
SEC 
SBC 
BCC 
CMP 
BCS 
LDX 
DEX 
BNE 
LDA 
LSR 
ORA 
BNE 
LDY 
LDA 
STA 
I NY 
LDA 



#FCBMARK+1 
(FCBPTR) , Y 
#$FE 
SCRTCH 

TPOSLH 

SCRTCH 
SCRTCH 
TYPMARK 
#2 

TYPMARK 
TPOSHI 
(FCBPTR) ,Y 
TYPMARK 
SVMARK 

#FCBSTYP 
(FCBPTR) ,Y 
FERRTYP 
#4 

CHKDSKSW 
DIRMARK 



#FCBDEVN 

(FCBPTR) ,Y 

DEVNUM 

TWRPROT1 

DSWGLOB 

TREPOS 

VERFYVOL 

TREPOS 

USRREQ 

CHKDSKS1 

#VNFERR 



#FCBREFN 
(FCBPTR) ,Y 
#BADREFNUM 



tFCBSTYP 
(FCBPTR) ,Y 

LEVELS 

#FCBSTAT 
(FCBPTR) ,Y 

IDATMOD 

POSNEW1 

WFCBDAT 

POSERR 

#FCBMARK+2 
(FCBPTR) ,Y 
#$FE 
SCRTCH 
TPOSHI 

SCRTCH 

POSNEW2 

#2 

POSNEW2 
LEVELS 

DATLEVEL 

TPOSLH 

A 

TPOSHI 
NOIDXDAT 
#FCBFRST 
(FCBPTR) ,Y 
BLOKNML 

(FCBPTR) ,Y 



FIRST TEST TO SEE IF NEW POSITION IS 
WITHIN THE SAME (CURRENT) DATA BLOCK. 



BUMP TO ACCESS HIGHEST ORDER ADDRESS BYTE 
GET MIDDLE BYTE OF NEW POSITION 



BRANCH IF POSSIBLY L.T. CURRENT POSITION 

MUST BE WITHIN 512 BYTES OF BEGINNING OF CURRENT 

NOW MAKE SURE WERE TALKIN ABOUT 
THE SAME 64K CHUNK! 
BRANCH IF WE AREN'T. 

IF WE IS, ADJUST FCB AND POSPTR AND RETURN. 



NOW FIND OUT WHICH TYPE 

OF FILE WE'RE POSITIONING ON. 

THERE IS NO SUCH TYPE AS ZERO, 

IS IT A TREE CLASS FILE? 

YES, GO POSITION 

NO, TEST FOR DIRECTORY TYPE. 



BRANCH NEVER! 



MAKE SURE S/HE HASN'T MOVED THE VOLUME 



MAKE SURE DEVICE NUMBER FARM IS CURRENT 
PASSES DEVNUM (CHECK DISK SWITCH) 
DISK SWITCH GLOBAL 
BRANCH IF NONE DETECTED 
MATCHES VCBPTR VS. DEVNUM 
BRANCH IF DISK HASN'T SWITCHED 
POLITELY ASK USER TO MOUNT 
SAID HE DID, CHECK AGAIN 
REFUSES TO MOUNT 



CLEAR ILLEGALLY TYPED FCB ENTRY 
TELL EM THERE IS NO SUCH FILE 



USE STORAGE TYPE AS NUMBER 

OF LEVELS (SINCE 1=SEED, 2=SAPLING, AND 3=TREE) 

SINCE IT'S A DIFFERENT DATA 

BLOCK, MUST NOT FORGET PREVIOUS DATA. 

THEREFORE, SEE IF PREVIOUS DATA WAS MODIFIED 

THEN DISK MUST BE UPDATED. 

GO WRITE CURRENT DATA BLOCK. 

RETURN ANY ERROR ENCOUNTERED. 

TEST TO SEE IF CURRENT 

INDEX BLOCK IS GOING TO BE USABLE. . . 

OR IN OTHER WORDS - 

IS NEW POSITION WITHIN 128K OF THE BEGINNING 
OF CURRENT SAPLING LEVEL CHUNK. 



BRANCH IF A NEW INDEX BLOCK IS ALSO NEEDED 

NEW POSITION IS > THAN BEGINING OF OLD. IS IT WITHIN 128K? 
BRANCH IF NOT. 

IS THE FILE WE'RE DEALING WITH A SEED? 

NO, USE CURRENT INDEXES. 
IS NEW POSITION UNDER 512? 



NO, MARK BOTH DATA AND INDEX BLOCK AS UN-ALLOCATED. 
FIRST BLOCK IS ONLY BLOCK AND IT'S DATA! 

(HIGH BLOCK ADDRESS) 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



; GO READ IN BLOCK AND SET APPROPRIATE STATUSES. 



POSNEW2 



DATLEVEL 



PAGE 

LDY 

LDA 

AND 

BEQ 

JSR 

BCS 

LDX 

CPX 

BEQ 

LDA 

LSR 

PHP 

LDA 

PLP 

BNE 

JSR 

DEX 

BEQ 

JSR 

BCS 

LDY 

LDA 

STA 

I NY 

LDA 

STA 

BCC 

SEC 

RTS 

JSR 
JSR 
BCS 
LDA 
LSR 
TAY 
LDA 
INC 
CMP 
BNE 
CMP 
BNE 
DEC 
LDA 
JMP 

PAGE 

STA 

LDA 

STA 

DEC 

JSR 

BCS 

LDA 

LSR 

LDA 

ROR 

TAY 

LDA 

INC 

CMP 

BNE 

CMP 

BNE 

LDA 

DEC 

LDY 
ORA 
STA 
LSR 
LSR 
JSR 
BCC 
STA 
I NY 
BNE 
INC 



tFCBSTAT 
(FCBPTR) ,Y 
#IDXMOD 
POSNIDX 
WFCBIDX 
POSERR 
LEVELS 
#3 

POS INDEX 
TPOSHI 
A 

#TOPALC+IDXALC+DATALC 

NODATA 
CLRSTATS 

TSTINY 
RFCBFST 
POSERR 
tFCBIDXB 
BLOKNML 
(FCBPTR) ,Y 

BLOKNMH 
(FCBPTR) ,Y 
DATLEVEL 



CLRSTATS 

RFCBFST 

POSERR 

TPOSHI 

A 

(TINDX) , Y 
TINDX+1 

(TINDX) , Y 
SAPLEVEL 

#0 

SAPLEVEL 
TINDX+1 

#IDXALC+DATALC 
NODATA 



BLOKNML 
(TINDX) , Y 
BLOKNMH 
TINDX+1 
RFCBIDX 
POSERR 
TPOSHI 
A 

TPOSLH 
A 

(TINDX) , Y 
TINDX+1 

(TINDX) , Y 

POSNEW3 

#0 

POSNEW3 
#DATALC 
TINDX+1 

#FCBSTAT 
(FCBPTR) ,Y 
(FCBPTR) , Y 

A 

A 

ZIPDATA 
SVMARK 
(TINDX) , Y 

ZIPIDX 
TINDX+1 



GOTA CHECK TO SEE IF PREVIOUS 
INDEX BLOCK WAS MODIFIED. 

READ IN OVER IT IF CURRENT IS UP TO DATE. 
GO UPDATE INDEX ON DISK (BLOCK ADDR IN FCB) 

BEFORE READING IN TOP INDEX, CHECK TO BE SURE 
THAT THERE IS A TOP INDEX. . . 
BRANCH IF FILE IS FULL BLOWN TREE. 
IS NEW POSITION WITHIN RANGE OF A 
SAPLING FILE (L.T. 128K) ? 
ANTICIPATE NO GOOD. 
; (TO INDICATE NO LEVEL IS ALLOCATED FOR NEW POSITION.) 
Z FLAG TELLS ALL. . . 
GO MARK 'EM ALL DUMMY. 

GO CLEAR STATUS BITS 0,1,2 (INDEX/DATA ALLOC STATUS). 
(UNAFFECTED SINCE LOADED ABOVE) CHECK FOR SEED 
IF SEED, CHECK FOR POSITION L.T. 512... 
GO GET ONLY INDEX BLOCK 
BRANCH IF ERROR 

SAVE NEWLY LOADED INDEX BLOCK'S ADDRESS 



; BRANCH ALWAYS. 



CLEAR ALL ALLOCATION REQUIREMENTS FOR PREVIOUS POSITION 
GET HIGHEST LEVEL INDEX BLOCK. 



THEN TEST FOR A SAP LEVEL INDEX BLOCK 



(BOTH HI AND LO WILL BE ZERO IF NO INDEX EXISTS) 
ARE BOTH BYTES ZERO? 



DON'T LEAVE WRONG POINTERS LAYING AROUND ! 
SHOW NEITHER INDEX OR DATA BLOCK ALLOCATED. 



READ IN NEXT LOWER INDEX BLOCK 
(HI ADDRESS) 



READ IN SAPLING LEVEL 
NOW GET BLOCK ADDRESS OF DATA BLOCK 
( IF THERE IS ONE ) 

DATA BLOCK ADDRESS LOW 



SHOW DATA BLOCK AS NEVER BEEN ALLOCATED 



; SET STATUS TO SHOW WHATS MISSIN' 

; THROW AWAY BIT THAT SAYS DATA BLOCK UN-ALLOCATED 

; CUZ WE KNOW THAT. CARRY NOW INDICATES IF INDEX BLOCK 

; ALSO IS INVALID AND NEEDS TO BE ZEROED (CARRY UNDISTURBED) 

; BRANCH IF INDEX BLOCK DOESN'T NEED ZIPPIN. 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



ZIPDATA 
ZIPDATO 



P0SNEW3 



SVMARK 
SVMRK1 



STA 
I NY 
BNE 
DEC 
JMP 

LDA 
TAY 
STA 
I NY 
BNE 
INC 
STA 
I NY 
BNE 
DEC 
RTS 

PAGE 

STA 
LDA 
DEC 
STA 
JSR 
BCS 
JSR 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
DEY 
DEX 
BPL 

CLC 
LDA 
STA 
LDA 
AND 
ADC 
STA 
LDA 
STA 
RTS 
SEC 
RTS 



LDY 
LDA 
AND 
STA 
RTS 

PAGE 

CMP 
BEQ 
LDA 
JSR 

LDA 
LSR 
STA 
LDY 
LDA 
CMP 
BCC 
LDY 
JSR 
BCS 
INC 
BPL 
BMI 

LDY 
JSR 
BCS 



(TINDX) ,Y 

ZPIDX1 

TINDX+1 

SVMARK 

#0 

(DATPTR) ,Y 

ZIPDATO 
DATPTR+1 
(DATPTR) , Y 

ZPDAT1 
DATPTR+1 



BLOKNML 
(TINDX) ,Y 
TINDX+1 
BLOKNMH 
RFCBDAT 
PRITZ 
CLRSTATS 
IFCBMARK+2 
#2 

(FCBPTR) ,Y 
OLDMARK-FCBMARK, Y 
TPOSLL,X 
(FCBPTR) ,Y 



RESTORE PROPER ADDRESS 

ALSO IS INVALID AND NEEDS TO BE ZEROED. 
ZERO OUT DATA AREA 



SVMRK1 



DATPTR 
POSPTR 
TPOSLH 
#1 

DATPTR+1 
POSPTR+1 
SISDATP 
SISPOSP 



GET DATA BLOCK OF NEW POSITION 
(HI ADDRESS) 



RETURN ANY ERROR 

SHOW WHOLE CHAIN IS ALLOCATED 

UPDATE POSITION IN FILE CONTROL BLOCK 

REMEMBER OLDMARK IN CASE 
CALLING ROUTINE FAILS LATER 



MOVE 3 BYTE POSITION MARKER 



LAST, BUT NOT LEAST, SET UP 

INDIRECT ADDRESS TO BUFFER PAGE POINTED 

TO BY THE CURRENT POSITION MARKER. 



SISTER PAGE BYTE ALSO. 

CARRY SHOULD ALWAYS BE CLEAR 

RANDOM ERROR 

RETURN 



tFCBSTAT ; CLEAR ALLOCATION STATES FOR DATA BLOCK 

(FCBPTR), Y ; AND BOTH LEVELS OF INDEXES. 

#$FF-TOPALC-IDXALC-DATALC 



(FCBPTR) ,Y 



tDIRTYP 
DIRPOS 
#CPTERR 
SYSERR 

SCRTCH 
A 

CNTENT 
IFCBMARK+l 
(FCBPTR) ,Y 
TPOSLH 
DIRFWRD 
#0 

DIRPOS1 

DRPOSERR 

CNTENT 

DIRVRSE 

SVMARK 

#2 

DIRPOS 1 
DRPOSERR 



; THIS SAYS THAT EITHER THEY EXIST CURRENTLY 

; OR THAT THEY'RE UNNECESSARY FOR CURRENT POSITION. 



IS IT A DIRECTORY? 
YES. . . 

NO, THERE IS A COMPATABLITY PROBLEM- 

THE DAMN THING SHOULD OF NEVER BEEN OPENED! 

RECOVER RESULTS OF PREVIOUS SUBTRACTION. 
USE DIFFERENCE AS COUNTER AS TO HOW MANY 
BLOCKS MUST BE READ TO GET TO NEW POSITION. 
TEST FOR POSITION DIRECTION. 

CARRY INDICATES DIRECTION... 
IF SET, POSITION FORWARD. 

OTHERWISE, READ DIRECTORY FILE IN REVERSE ORDER. 

READ PREVIOUS BLOCK. 

BRANCH IF ANYTHING GOES WRONG. 

COUNT UP TO 128 

LOOP IF THERE IS MORE BLOCKS TO PASS OVER. 
BRANCH ALWAYS. 

POSITION IS FORWARD FROM CURRENT POSITION. 
READ NEXT DIRECTORY BLOCK. 
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000320 


DEC 


CNTENT 








000321 


BNE 


DIRFWRD 






; LOOP IF POSITION NOT FOUND IN THIS BLOCK. 


r\ n r\ o n o 

000322 


BEQ 


SVMARK 






; BRANCH ALWAYS . 


r\ n n *3 n o 

000323 












000324 


DIRP0S1 LDA 


(DATPTR) , Y 






; GET LINK ADDRESS OF PREVIOUS OR 


r\ n n *3 n c 

000325 


STA 


BLOKNML 






; NEXT DIRECTORY BLOCK. 


nn n "3 i r 
OUO JZD 


INY 








; BUT FIRST BE SURE THERE IS A LINK. 


000327 


CMP 


(DATPTR) , Y 








000328 


BNE 


DIRPOS2 






; BRANCH IF CERTAIN LINK EXISTS 


000329 


CMP 


#0 






; ARE BOTHE LINK BYTES 0? 


r\ n n *3 o n 

000330 


BNE 


DIRPOS2 






; NOPE, JUST HAPPEN TO BE THE SAME VALUE. 


000331 


LDA 


#EOFERR 






; SOMETHING IS WRONG WITH THIS DIRECTORY FILE! 


n n n "3 ^> i 
000332 


DRPOSERR SEC 








; INDICATE ERROR 


r\ n n *3 "3 o 

000333 


RTS 










r\ n n o "3 /i 

000334 












r\ n n *3 o c 

000335 


DIRP0S2 LDA 


(DATPTR) ,Y 






; (HIGH ORDER BLOCK ADDRESS) 


n n n "3 "3 r 
00033d 


STA 


BLOKNMH 








r\ n n o o "~7 

000337 


* DROP INTO ' RFCBDAT ' 


(READ FILE'S DATA BLOCK) 




000338 












r\ n n *3 o n 

000339 


* NOTE: FOR DIRECTORY 


POSITIONING NO OPTIMIZATION HAS BEEN 


000340 


* DONE SINCE DIRECTORY 


FILES WILL ALMOST 


ALWAYS BE LESS 


r\ n n *3 /i t 

000341 


* THAN 6 BLOCKS. IF MORE SPEED IS REQUIRED 


OR 


DIRECTORY 


000342 


* TYPE FILES ARE TO BE 


USED FOR OTHER PURPOSES 


REQUIRING 


000343 


* MORE BLOCKS, THEN THE RECOMMENDED METHOD 


IS 


TO CALL 


000344 


* 'RFCBDAT' FOR THE FIRST BLOCK AND GO DIRECTLY TO 


000345 


* DEVICE (VIA JMP (IOUNITL)) HANDLER FOR 


SUBSEQUENT 


000346 


* ACCESSES. 










000347 


* ALSO NOTE THAT NO CHECKING IS DONE FOR 


READ/WRITE 


000348 


* ENABLE SINCE A DIRECTORY FILE CAN ONLY 




OPENED 


000349 


* FOR READ ACCESS. 










r\ n n *3 c n 

000350 












r\ n n *3 c i 

000351 


PAGE 










000352 












r\ n n *3 c o 

000353 


RFCBDAT LDA 


#RDCMD 






; SET READ COMMAND . 


000354 


STA 


DHPCMD 








000355 


LDX 


fDATPTR 






; USE X TO POINT AT ADDRESS OF DATA BUFFER 


000356 


JSR 


FILEIOl 






; GO DO FILE INPUT. 


000357 


LDY 


IFCBDATB 






; SAVE BLOCK NUMBER JUST READ IN FCB. 


r\ n n "3 c n 

000358 


BCC 


FCBLOKNM 






; BRANCH IF NO ERRORS HAPPENED. 


n n n "3 c n 
000359 


RTS 








; RETURN ERROR 


r\ n n "3 r~ n 

000360 












r\ n n *3 r~ t 

000361 


RFCBIDX LDA 


#RDCMD 






; PREPARE TO READ IN INDEX BLOCK. 


n n n "3 r o 
000.362 


STA 


DHPCMD 








000363 


LDX 


#TINDX 






; POINT AT ADDRESS OF CURRENT INDEX BUFFER 


000364 


JSR 


FILEIOl 






; GO READ INDEX BLOCK. 


000365 


BCS 


RDFCBERR 






; REPORT ERROR 


000366 


LDY 


tFCBIDXB 






; SAVE BLOCK ADDRESS OF THIS INDEX IN FCB. 


r\ n n o ^ ~7 

00036 / 


FCBLOKNM LDA 


BLOKNML 








r\ r\ r\ *3 r~ o 

000368 


STA 


(FCBPTR) ,Y 








000369 


INY 










r\ n n *3 t n 

000370 


LDA 


BLOKNMH 








000371 


STA 


(FCBPTR) ,Y 








000372 


CLC 










000373 


RDFCBERR RTS 










000374 












r\ r\ n "3 ^ iz 
0003 /5 


RFCBFST LDX 


ITINDX 






; POINT AT ADDRESS OF INDEX BUFFER 


r\ n n "3 "~i r 

000376 


LDY 


#FCBFRST 






; AND BLOCK ADDRESS OF FIRST FILE BLOCK IN FCB 


000377 


LDA 


#RDCMD 






; AND LASTLY, MAKE IT A READ! 


000378 


* DROP INTO DOFILEIO 










r\ n n *3 t n 

000379 












r\ n n *3 o n 

000380 


DOFILEIO STA 


DHPCMD 






; SAVE COMMAND. 


000381 


LDA 


(FCBPTR) ,Y 






; GET DISK BLOCK ADDRESS FROM FCB. 


000382 


STA 


BLOKNML 








n n n "3 o q 
000383 


INY 








; BLOCK ZERO NOT LEGAL. 


000384 


CMP 


(FCBPTR) ,Y 








r\ r\ r\ "3 o it 

000385 


BNE 


FILEIO 








r\ n n *3 o ^ 

000386 


CMP 


#0 






; ARE BOTH BYTES ZERO? 


r\ n n "3 n "~7 

00038 / 


BNE 


FILEIO 






; NO, CONTINUE WITH REQUEST. 


000388 


LDA 


#ALCERR 






; OTHERWISE REPORT ALLOCATION ERROR. 


r\ n n "3 o n 

000389 


JSR 


SYSDEATH 






; NEVER RETURNS . . . 


000390 












000391 


PAGE 










000392 


FILEIO LDA 


(FCBPTR) ,Y 






; GET HIGH ADDRESS OF DISK BLOCK 


000393 


STA 


BLOKNMH 








000394 


FILEIOl LDA 


0,X 






; GET MEMORY ADDRESS OF BUFFER FROM 


000395 


STA 


DBUFPL 






; S.O.S. ZERO PAGE POINTED TO BY 


000396 


JSR 


WRAPADJ 






;GO ADJUST FOR BANK CROSSING <SRS 82.162> 


000397 


LDA 


1,X 








000398 


STA 


DBUFPH 






; SET HI BYTE 


000399 


LDA 


SISTER+1,X 






; AND BANK PAIR BYTE. <SRS 82.162> 


000400 


STA 


SISBPH 
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000401 
000402 
000403 
000404 
000405 
000406 
INTERUPT ! ) 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 



FILEI02 



RPEATIOl 



RPEATIO0 
SAVPRMS 



RRITZ 
RPEATI02 
GETPRMS 



TRASH 
RPTBLOK 



LDY 
LDA 
STA 
LDA 
STA 
STA 

LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
DEY 
BPL 
EQU 
LDA 
STA 
JSR 
BCC 
CMP 
BEQ 
SEC 
RTS 
LDY 
LDA 
STA 
DEY 
BPL 
JMP 



DS 
DS 



LDY 
LDA 
TAX 
JSR 
LDX 
LDY 
LDA 
JMP 

LDX 
LDY 
LDA 
JSR 
BCS 
LDA 
JMP 

LDY 
LDA 
TAX 
JSR 
LDX 
LDY 
LDA 
JSR 
BCS 
LDA 
LDY 
AND 
STA 
RTS 



PAGE 

JSR 

BCC 

CMP 

BNE 



#FCBDEVN 
(FCBPTR) ,Y 
DEVNUM 

#2 

RQCNTH 
IOACCESS 

#>TRASH 
BRDPTR 
#<TRASH 
BRDPTR+1 

#0 

RQCNTL 

SSBRDPH 

DEVNUM 

UNITNUM 

#$9 

DEVICE, Y 
RPTBLOK, Y 

SAVPRMS 

#0 

SERR 

DMGR 

RRITZ 

#XDISKSW 

RPEATI02 



#$9 

RPTBLOK, Y 
DEVICE, Y 

GETPRMS 
DMGRGO 



2 

10 



#FCBDEVN 
(FCBPTR) ,Y 

UPBMAP 

#TINDX 

tFCBFRST 

fWRTCMD 

DOFILEIO 

#DATPTR 

#FCBDATB 

fWRTCMD 

DOFILEIO 

FILIOERR 

#$FF-DATMOD 

FCBUPDAT 

#FCBDEVN 
(FCBPTR) ,Y 

UPBMAP 

#TINDX 

#FCBIDXB 

fWRTCMD 

DOFILEIO 

FILIOERR 

#$FF-IDXMOD 

#FCBSTAT 

(FCBPTR) ,Y 

(FCBPTR) ,Y 



FINDFILE 

OPEN0 

f BADPATH 

ERROPN 



OF COURSE HAVING THE DEVICE NUMBER 

WOULD MAKE THE WHOLE OPERATION MORE MEANINGFUL . . . 
ALSO, SET UP BYTE COUNT TO 512 AND 
SET 'BYTES READ' POINTER TO 

(INTERUPT! SET TO INDICATE REG CALL MADE TO DEV HANDLER. RETURN 
; A PLACE TO THROW BYTES READ AWAY 
; LOCALLY DEFINED 

; SO THAT IT DOESN'T MESS UP ANY OTHER DATA. 
; ('BYTES READ' IS THROWN AWAY) 

; TRANSFER THE DEVICE NUMBER FOR DISPATCHER TO CONVERT TO UNIT NUMBER. 

; PREPARE TO SAVE DEVICE PARMS 

; MOVE FROM Z PAGE 

; TO MY OWN SPACE 

; FROM $C9 THROUGH $C0 

; CALL EXTERNAL DEVICE MANAGER 

CLEAR GLOBAL ERROR VALUE 
CALL THE DRIVER 
RTS IF NO ERRORS 
DISKSWITCH ITERATES 

BRANCH IF DISK SWITCH AND REPEAT I/O REQUEST 
REPORT ERROR 

LENGTH OF FARM BLOCK 

RESTORE POSSIBLY DISTURBED PARM BLOCK 



; AND TRY THE I/O AGAIN 



ONLY USED TO PUT BYTES READ TO SLEEP 
DMGR PARM SAVE BLOCK 



FETCH THE 
DEVICE NUMBER 
AND UPDATE 
ITS BITMAP 
POINT AT ADDRESS OF INDEX BLOCK 

AND THE DISK ADDRESS OF FILE'S FIRST BLOCK IN FCB 
LASTLY, MAKE IT A WRITE REQUEST. 
AND GO DO IT! 



POINT AT MEMORY ADDRESS WITH X AND DISK ADDRESS WITH Y. 
WRITE DATA BLOCK. 



REPORT ANY ERRORS 

MARK DATA STATUS AS CURRENT. 



MAKE SURE 
THE BITMAP 

FOR THIS DEVICE ("X") 
IS UPDATED 
POINT AT ADDRESS OF INDEX BUFFER 
AND BLOCK ADDRESS OF THAT INDEX BLOCK. 

GO WRITE OUT INDEX BLOCK. 
REPORT ANY ERRORS 
MARK INDEX STATUS AS CURRENT. 
CHANGE STATUS BYTE TO 

REFLECT SUCCESSFUL DISK FILE UPDATE. 
(CARRY IS UNAFFECTED) 



FIRST OF ALL LOOK UP THE FILE . . 



IS AN ATTEMPT TO OPEN A ROOT DIRECTORY? 
NO, PASS BACK ERROR 
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000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 



OPEN0 



ERRBUSY 
ERROPN 



ASGNFCB 
CLRFCB 



DEFOPEN 
SVATTRB 



OPEN2 
ERRCMPAT 



OPEN3 



JSR 
BCC 
LDA 
SEC 
RTS 

LDA 
STA 
LDA 
STA 
BNE 
LDA 
SEC 
RTS 

LDY 

LDA 

STA 

DEY 

BPL 

LDY 

LDA 

STA 

DEY 

BNE 

LDA 

LSR 

LSR 

LSR 

LSR 

TAX 

LDY 

STA 

LDA 

BEQ 

LDY 

LDA 

BEQ 

AND 

CMP 

BEQ 

LDA 

SEC 

RTS 

PAGE 

LDA 

AND 

LDY 

CPX 

BNE 

AND 

STA 

AND 

BEQ 

LDA 

BNE 

LDA 

BEQ 

LDA 

SEC 

RTS 

CPX 
BCC 
CPX 
BNE 
LDY 
LDA 
STA 
STA 
I NY 
LDA 
STA 
STA 
LDY 
LDA 
STA 
I NY 
CPY 
BNE 
LDA 



TSTOPEN 

OPEN1 

#FILBUSY 



DATPTR 

FCBPTR 

DATPTR+1 

FCBPTR+1 

ASGNFCB 

fFCBFULL 



#$1F 
#0 

(FCBPTR) ,Y 

CLRFCB 
tFCBENTN 
D.DEV-1, Y 
(FCBPTR) ,Y 

FCBOWNR 

DFIL+D. STOR 

A 

A 

A 

A 

#FCBSTYP 
(FCBPTR) ,Y 
C.OPLSTLN 
DEFOPEN 
#0 

(C.OPLIST) , Y 
DEFOPEN 
DFIL+D. ATTR 

(C.OPLIST) , Y 

SVATTRB 

IACCSERR 



DFIL+D. ATTR 

#READEN+WRI TEN 

#FCBATTR 

#DIRTYP 

SVATTR1 

#READEN 

(FCBPTR) ,Y 

fWRITEN 

OPEN2 

TOTENT 

ERRBUSY 

DFIL+D. COMP 

OPEN3 

ICPTERR 



ITRETYP+1 
OPEN4 
tDIRTYP 
ERRCMPAT 
#FCBFRST 
DFIL+D. FRST 
(FCBPTR) ,Y 
BLOKNML 

DFIL+D. FRST+1 
(FCBPTR) ,Y 
BLOKNMH 
#FCBEOF 

DFIL+D . EOF-FCBEOF, Y 
(FCBPTR) ,Y 

#FCBEOF+3 
EOFCBMV 
DFIL+D. USAGE 



FIND OUT IF ANY OTHER FILES ARE WRITING 
TO THIS SAME FILE. (BRANCH IF NOT) 
REPORT SHARED ACCESS NOT ALLOWED. 

RETURN ERROR. 

GET ADDRESS OF FIRST FREE FCB FOUND 

DURING TEST OPEN SEQUENCE AND USE 

IT AS FILE CONTROL AREA. IF HIGH BYTE OF 

POINTER IS ZERO, THEN NO FCB 

IS AVAILABLE FOR USE. 

REPORT FCB FULL ERROR. 



ASSIGN FCB, BUT FIRST 

CLEAN OUT ANY OLD RUBBISH LEFT AROUND. . . 



NOW BEGIN CLAIM BY MOVING IN FILE 
OWNERSHIP INFORMATION. 

NOTE: THIS CODE DEPENDS UPON THE DEFINED 
ORDER OF BOTH THE FCB AND DIRECTORY ENTRY 
BUFFER (D.). BEWARE OF CHANGES!!! ************* 
GET STORAGE TYPE. 
STRIP OFF FILE NAME LENGTH. 

(BY DIVIDING BY 16) 

SAVE IN X FOR LATER TYPE COMPARISON 

SAVE STORAGE TYPE. 

IS THERE AN OPEN LIST? 

NO, USE DEFAULT REQUST ACCESS... 

YES, FIND OUT WHAT ACCESS IS REQUESTED. 

IF REQ-ACCESS IS ZERO, THEN 

USE DEFAULTS . . . 

CHECK REQUEST AGAINST ATTRIBUTES. 
WERE ALL ACCESS REQUESTS SATISFIED? 
YES, SAVE ATTRIBUTES. 
REPORT ACCESS REQUEST CAN'T BE MET. 



GET FILES ATTRIBUTES AND 

USE IT AS A DEFAULT ACCESS REQUEST. 



IF DIRECTORY, DON'T ALLOW WRITE ENABLE 



CHECK FOR WRITE ENABLED REQUESTED. 
BRANCH IF READ ONLY OPEN. 

OTHERWISE, BE SURE NO ONE ELSE IS READING SAME 

FILE (SET UP BY TSTOPEN) . 

OH, BY THE WAY... IS THIS FILE 

COMPATABLE WITH VERSION 0000? *************** 
REPORT FILE IS INCOMPATABLE ! 



IS IT A TREE TYPE FILE? 

TEST FOR FURTHER COMPATABLITY . IT MUST 
BE EITHER A TREE OR A DIRECTORY. 
REPORT INCOMPATABLE. 

MOVE ADDRESS OF FIRST BLOCK OF FILE 

INTO FCB. NO CHECKING IS DONE FOR VALIDITY. 



NOTE: THE FCB HAS NOT BEEN OFFICIALLY 
CLAIMED YET. TO DO THIS, THE FIRST BYTE 
MUST CONTAIN A VALID REFERENCE NUMBER. 
MOVE CURRENT END OF FILE 
TO FCB. 
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000562 




STA 


(FCBPTR) , Y 


AND CURRENT BLOCK COUNT OF FILE. 


000563 




I NY 






000564 




LDA 


DFIL+D . USAGE+1 




000565 




STA 


(FCBPTR) , Y 




000566 




LDA 


C . OPLSTLN 


NOW THAT WE'VE COME THIS FAR, FIND 


000567 




BEQ 


DEFBUFR 


OUT WHICH TYPE OF BUFFER AND ALLOCATE IT! 


r\ n n it r o 

000568 




CMP 


#1 


WAS IT ONLY TO SET ATTRIBUTES? 


000569 




BEQ 


DEFBUFR 




000570 




CMP 


#4 


IS A FULL ADDRESS INCLUDED? 


000571 




BEQ 


UBUFSPEC 




000572 




LDA 


#BADLSTCNT 




000573 




SEC 






000574 




RTS 






000575 










000576 




PAGE 






000577 


UBUFSPEC 


LDY 


#1 


(INDEX TO ' PAGECNT 1 OF OPEN LIST) 


000578 




LDA 


(C . OPLIST) , Y 


IS USER SPECIFING THE BUFFER? 


000579 




BEQ 


DEFBUFR 


NO, USE DEFAULT BUFFER (DYNAMIC) 


000580 




CPX 


#TRETYP+1 


IF TREE TYPE FILE, THEN AT LEAS 4 PAGES ARE NEEDED 


000581 




BCC 


ONEKTST 


BRANCH IF TREE TYPE. 


000582 




CMP 


#2 


DID USER GIVE AT LEAST 2 PAGES FOR DIRECTORY TYPE? 


000583 




BCS 


FIXDBUF 


YES, LOG IT WITH BUFFER MANAGER 


000584 


ERRBTS 


LDA 


#BTSERR 


REPORT NOT ENOUGH BUFFER SPACE. 


000585 




SEC 






000586 




RTS 






000587 










000588 


ONEKTST 


CMP 


#4 


IS THERE AT LEAST ONE KILOBYTE BUFFER FOR TREES? 


000589 




BCC 


ERRBTS 


NO, THEN TO HELL WITH IT! . 


000590 


FIXDBUF 


JSR 


REQFXBUF 


CALL BOB AND ASK FOR HIM TO FIX IT . . . 


000591 




BCC 


FCBUFFER 


GO SAVE BUFFER NUMBER. 


r\ n n it r\ ^ 

000592 


ERROPN1 


RTS 




RETURN ANY ERROR ENCOUNTERED. 


000593 










000594 


DEFBUFR 


LDA 


#4 


ASSUME TREE FILE ( 4 PAGES REQUIRED) 


r\ r\ n c r\ it 

000595 




CPX 


#TRETYP+1 




000596 




BCC 


BUFREQST 


BRANCH IF IT IS A TREE. 


000597 




LDA 


#2 


OTHERWIZE, WE JUST NEED TWO PAGES. 


000598 


BUFREQST 


JSR 


REQBUF 


CALL BOB TO ALLOCATE A DYNAMIC BUFFER. 


000599 




BCS 


ERROPN1 


REPORT ANY ERRORS . 


000600 


FCBUFFER 


LDY 


#FCBBUFN 


SAVE BUFFER NUMBER AND THEN 


000601 




STA 


(FCBPTR) , Y 


FIND OUT WHERE IT IS. 


000602 




JSR 


GTBUFFRS 


HAVE BOB RETURN ADDRESS IN DATA & INDEX POINTERS. 


000603 




BCS 


ERROPEN2 


IF ERROR, FREE BUFFER BEFOR RETURNING. 


000604 




LDY 


#FCBREFN 


NOW CLAIM FCB FOR THIS FILE. 


000605 




LDA 


CNTENT 




000606 




STA 


(FCBPTR) , Y 




000607 




LDY 


#FCBLEVL 


MARK LEVEL 


000608 




LDA 


LEVEL 


AT WHICH 


000609 




STA 


(FCBPTR) , Y 


FILE WAS OPENED 


000610 




LDY 


#FCBSTYP 


GET STORAGE TYPE AGAIN. 


000611 




LDA 


(FCBPTR) , Y 


FILE MUST BE POSITIONED TO BEGINNING. 


000612 




CMP 


#TRETYP+1 


IS IT A TREE FILE? 


000613 




BCS 


OPNDIR 


NO, ASSUME IT'S A DIRECTORY. 


000614 




LDA 


#$FF 


FOOL THE POSITION ROUTINE INTO GIVING 


000615 




LDY 


#FCBMARK 


A VALID POSITION WITH PRELOADED DATA, ETC. 


000616 


OPNPOS 


STA 


(FCBPTR) , Y 




000617 




I NY 






000618 




CPY 


#FCBMARK+3 




000619 




BNE 


OPNPOS 




000620 




LDY 


#2 


SET DESIRED POSITION TO ZERO. 


000621 




LDA 


#0 




r\ n r\ r n ^ 

000622 


OPNPOS1 


STA 


TPOSLL, Y 




000623 




DEY 






000624 




BPL 


OPNPOS1 




000625 




JSR 


RDPOSN 


LET TREE POSITION ROUTINE DO THE REST. 


000626 




BCC 


OPENDONE 


BRANCH IF SUCCESSFUL . 


000627 










000628 




PAGE 






000629 


ERROPEN2 


PHA 




SAVE ERROR CODE . 


000630 




LDY 


#FCBBUFN 


SINCE ERROR WAS ENCOUNTERED BEFORE FILE 


000631 




LDA 


(FCBPTR) , Y 


WAS SUCCESSFULLY OPENED, THEN 


000632 




JSR 


RELBUF 


IT'S NECESSARY TO FREE THE BUFFER AND 


000633 




LDY 


#FCBREFN 


FILE CONTROL BLOCK. 


000634 




LDA 


#0 




000635 




STA 


(FCBPTR) , Y 




000636 




PLA 






000637 




SEC 






000638 




RTS 






000639 


-k 








000640 


OPNDIR 


JSR 


RFC B DAT 


READ IN FIRST BLOCK OF DIRECTORY FILE. 


000641 




BCS 


ERROPEN2 


RETURN ANY ERROR AFTER FREEING BUFFER & FCB 


000642 


OPENDONE 


LDY 


#VCBOPNC 


INCREMENT OPEN COUNT FOR THIS 
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000643 




LDA 


(VCBPTR) , Y 


VOLUME. ALSO MARK STATUS. 


000644 




CLC 






000645 




ADC 


#1 




000646 




STA 


(VCBPTR) , Y 




000647 




LDY 


fVCBSTAT 


HI BIT INDICATES VOLUME BUSY 


000648 




LDA 


(VCBPTR) , Y 




000649 




ORA 


#$80 




000650 




STA 


(VCBPTR) , Y 


DOESN'T MATTER HOW MANY, JUST BE SURE IT'S SET. 


000651 




LDY 


#FCBREFN 


PASS USER HIS REFERENCE NUMBER 


000652 




LDA 


(FCBPTR) , Y 




000653 




LDY 


#0 




000654 




STA 


(C.OUTREF) , Y 




000655 




CLC 






000656 




RTS 






000657 










000658 




PAGE 






000659 










000660 


TSTOPEN 


LDA 


FCBADDRH 


TEST FOR SHARED ACCESS FILES WITH WRITE ENABLED 


000661 




STA 


FCBPTR+1 




000662 




LDA 


FCBANKNM 




000663 




STA 


SISFCBP 




000664 




LDA 


#0 




000665 




STA 


DATPTR+1 


MARK AS NO FREE FOUND . 


000666 




STA 


CNTENT 




00066 / 




STA 


TOTENT 


ALSO, INIT COUNT OF MATCHING FILES 


000668 


TSTOPN1 


STA 


FCBPTR 


SAVE NEW LOW ORDER ADDRESS 


000669 




LDX 


DATPTR+1 


FIND OUT IF A FREE SPOT HAS BEEN FOUND YET. 


000670 




BNE 


TSTOPN2 


YES, DON'T INCREMENT REFNUM (CNTENT). 


000671 




INC 


CNTENT 


BUMP REFNUM 


000672 


TSTOPN2 


LDY 


#FCBREFN 


TEST FOR IN USE FCB 


000673 




LDA 


(FCBPTR) , Y 


(NON ZERO) 


000674 




BNE 


CHKACTV 


THIS FCB IS IN USE, COPARE OWNERSHIP. 


000675 




TXA 




TEST AGAIN FOR FREE FCB 


nn n r i r 
0006 /6 




BNE 


TSNXFCB 


BRANCH IF A FREE SPOT HAS ALREADY BEEN FOUND . 


000677 




LDA 


FCBPTR 


TRANSFER CURRENT POINTER SO IT MAY BE 


000678 




STA 


DATPTR 


USED AS A FREE FCB BY OPEN. 


000679 




LDA 


FCBPTR+1 


HIGH BYTE ALWAYS NON ZERO. 


000680 




STA 


DATPTR+1 




000681 




JMP 


TSNXFCB 




000682 










000683 


CHKACTV 


EQU 




IF MATCHING FILE IS SWAPPED, IT DOESNT COUNT 


000684 




LDY 


#FCBSWAP 




000685 




LDA 


(FCBPTR) , Y 




000686 




BNE 


TSNXFCB 


BRANCH IF SWAPPED 


000687 




LDY 


#FCBENTN 


NOTE: THIS CODE DEPENDS ON THE 


000688 


WHOWNS 


LDA 


(FCBPTR) , Y 


DEFINED ORDER OF FCB AND DIRECTORY 


000689 




CMP 


D . DEV- 1 , Y 




000690 




BNE 


TSNXFCB 


BRANCH IF THIS ONE HAS A DIFFERENT OWNER. 


000691 




DEY 






000692 




BNE 


WHOWNS 




000693 




INC 


TOTENT 


REPORT THIS ONE AS A CO-OWNER. 


000694 




LDY 


#FCBATTR 


NOW FIND OUT IF THIS ONE WANTS TO WRITE. 


000695 




LDA 


(FCBPTR) , Y 




000696 




AND 


#WRITEN 


IF WRITE IS NOT ENABLED THEN CONTINUE. 


000697 




BEQ 


TSNXFCB 




000698 




SEC 




OTHERWISE, JUST SET THE CARRY TO SHOW 


000699 




RTS 




THAT THE FILE CAN'T BE SHARED. 


000700 










000701 


TSNXFCB 


LDA 


FCBPTR 


CALCULATE NEXT FCB AREA (+$20) 


000702 




CLC 






000703 




ADC 


#$20 




000704 




BCC 


TSTOPN1 


LOOP IF NO PAGE CROSS. 


000705 




LDX 


FCBPTR+1 




000706 




INC 


FCBPTR+1 




000707 




CPX 


FCBADDRH 


HAVE WE LOOKED AT BOTH PAGES? 


000708 




BEQ 


TSTOPN1 


NOPE, LOOK AT PAGE TWO. 


000709 




CLC 




INDICATE NO FILES THAT SHARE HAVE WRITE ENABLED 


000710 




RTS 






000711 


* 








000712 




CHN 


READ/WRITE, 4, 2 




000713 










000714 


************** 






000715 


* END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: POSN.OPEN 


000716 


************************************************************************* 


000717 










000718 










End of 


File -- Lines : 


718 Characters: 31954 
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FILE : "SOS. PRINT. TEXT" 



r\ n n r\ n i 

000001 


************************************************************************* 


000002 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE: PRINT 


000003 








000004 


* ASSEMBLER: APPLE ] [ 650 


2 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 








000006 


SBTL 




'SOS 1.1 BLOCK FILE MANAGER' L 


000007 


* 01-FEB-82 






r\ n n r\ n o 

000008 


REL 






000009 


IBUFSIZ 




1 


ooooio 


SBUFSIZ 




40 


000011 


INCLUDE 




SOSORG, 6,1,254 


000012 


ORG 




ORGBFM ; BITMAPS $B800-$BBFF 


000013 


ZZORG EQU 






000014 


REP 




60 


000015 


* (C) COPYRIGHT 


1981 BY APPLE COMPUTER INC. 


000016 


* ALL 


RIGHTS RESERVED 


000017 


REP 




60 


000018 


MSB 




OFF 


000019 


LST 




VSYM 


000020 


CHN 




EQUATES, 4, 1 


000021 


CHN 




ALLOC 


000022 


INCLUDE 




POSN/OPEN 


000023 


INCLUDE 




READ/WRITE, 2, , 4 


000024 


INCLUDE 




CLOSE/EOF, 2, , 4 


000025 


INCLUDE 




DESTROY, 2, , 4 


000026 


INCLUDE 




SWAPOUT/IN, 2, , 4 


000027 








000028 


************************************************************************* 


000029 


* END OF APPLE /// SOS 1. 


3 


SOURCE CODE FILE: PRINT 


000030 


************************************************************************* 


000031 









End of File — Lines: 31 Characters: 1032 
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FILE: "SOS.PUBLICRELEASE.TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: PUBLICRELEASE 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 :T 15,19,32 

000007 ::PR#1,L58 132N 

000008 : : SL4 : DR1 : ASM PRINT, BFM. OBJ, S6, Dl 

000009 : : END 
000010 

000011 ************************************************************ 

000012 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: PUBLICRELEASE 

End of File -- Lines: 13 Characters: 531 
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FILE : "SOS. READ. WRITE. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: READ. WRITE 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



READ3 



PAGE 

CLC 

LDY 

LDA 

AND 

BNE 

LDA 

SEC 

RTS 

LDY 
LDA 
STA 
ADC 
STA 
I NY 
LDA 
STA 
ADC 
STA 
I NY 
LDA 
STA 
ADC 
STA 
LDY 
LDA 
CMP 
BCC 
BNE 
DEY 
CPY 
BNE 
EQU 
LDY 
LDA 
SBC 
STA 
I NY 
LDA 
SBC 
STA 
ORA 
BNE 
LDA 
JSR 
LDA 
STA 
BNE 
CMP 
BNE 
STA 
JMP 
PAGE 

LDA 
STA 
LDA 
STA 
LDX 
JSR 
STA 
STY 
LDY 
LDA 
CMP 
BCC 
JMP 

JSR 
BCC 



#FCBATTR 
(FCBPTR) ,Y 
#READEN 
READ1 
IACCSERR 



tFCBMARK 
(FCBPTR) ,Y 
TPOSLL 
C. BYTES 
SCRTCH 

(FCBPTR) ,Y 
TPOSLH 
C.BYTES+1 
SCRTCH+1 

(FCBPTR) ,Y 
TPOSHI 

#0 

SCRTCH+2 
#FCBEOF+2 
SCRTCH-FCBEOF, Y 
(FCBPTR) ,Y 
READ2 
ADJSTCNT 

#FCBEOF-l 

EOFTEST 

* 

#FCBEOF 
(FCBPTR) ,Y 
TPOSLL 
C. BYTES 

(FCBPTR) ,Y 
TPOSLH 
C.BYTES+1 
C. BYTES 
READ2 
#EOFERR 
SYSERR 
C. BYTES 
RWREQL 
READ3 
C.BYTES+1 
READ3 
RWREQH 
READONE 



C.BYTES+1 

RWREQH 

C . OUTBUF 

USRBUF 

#C. OUTBUF 

WRAPADJ 

USRBUF+1 

SISUSRBF 

#FCBSTYP 

(FCBPTR) ,Y 

ITRETYP+1 

TREAD 

DREAD 

RDPOSN 
TREAD0 



FIRST DETERMINE IF REQESTED 
READ IS LEGAL 

IS READ ENABLED? 
YES, CONTINUE . . . 
REPORT ILLEGAL ACCESS. 



GET CURRENT MARK INTO ' TPOS ' AND 
DETERMINE IF RESULTING POSITION 
EXCEEDS CURRENT END OF FILE. 



(THIS WAS DONE STRAIT-LINE SINCE 
WE'RE ADDING A TWO BYTE TO A THREE 
BYTE QUANTITY) 



; ADD IN REMAINING CARRY. 

; NOW TEST EOF AGAINST POSITION GENERATED 

; IS NEW POSITION > EOF? 
; NO, PROCEED. 

; YES, ADJUST ' C. BYTES' REQUEST 

HAVE WE COMPARED ALL TREE BYTES? 
NO, TEST NEXT LOWEST. 
ADJUST REQUEST TO READ UP TO (BUT 
NOT INCLUDING) END OF FILE. 
RESULT= (EOF-1) -POSITION 



IF BOTH BYTES ARE ZERO, REPORT EOF ERROR. 



BRANCH IF READ REQUEST DEFINITELY NON-ZERO. 
BRANCH IF READ REQUESTOZERO 
DO NOTHING. 



MOVE POINTER TO USERS BUFFER TO BFM 
Z-PAGE AREA. 
<SRS 82.162> 

ADJUST FOR BANK CROSSING. <SRS 82.162> 

SAVE VALID USER BUFFER ADDRESS (THAT WILL NOT CROSS BANKS) 
NOW FIND OUT IF IT'S A TREE READ OR OTHER. 



BRANCH IF A TREE FILE. 

OTHEWISE ASSUME IT'S A DIRECTORY. 



GET DATA POINTER SET UP. 
REPORT ANY ERRORS 
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000077 




JMP 


ERRFIX1 




000078 


TREADO 


JSR 


PREPRW 


TEST FOR NEWLINE, SETS UP FOR PARTIAL READ. 


000079 




JSR 


READ PART 


MOVE CURRENT DATA BUFFER CONTENTS TO USER AREA 


000080 




BVS 


GORDDNE 


BRANCH IF REQUEST IS SATISFIED. 


000081 




BCS 


TREAD 


CARRY SET INDICATES NEWLINE IS SET. 


000082 




LDA 


RWREQH 


FIND OUT HOW MANY BLOCKS ARE TO BE READ 


000083 




LSR 


A 


IF LESS THAN TWO, THEN DO IT THE SLOW WAY. 


000084 




BEQ 


TREAD 




000085 




STA 


BULKCNT 


SAVE BULK BLOCK COUNT . 


000086 




LDY 


fFCBSTAT 


MAKE SURE CURRENT DATA AREA 


000087 




LDA 


(FCBPTR) , Y 


DOESN'T NEED TO BE WRITTEN BEFORE 


000088 




AND 


#DATMOD 


RESETTING POINTER TO READ DIRECTLY INTO 


000089 




BNE 


TREAD 


USER'S AREA. BRANCH IF DATA NEED TO BE WRITTEN 


000090 




STA 


IOACCESS 


TO FORCE FIRST CALL THRU ALL DEVICE HANDLER CHECKING 


000091 




LDA 


USRBUF 


MAKE THE DATA BUFFER THE USER'S SPACE. 


r\ n n r\ r\ ^ 

000092 




STA 


DATPTR 




000093 




LDA 


USRBUF+1 




000094 




STA 


DATPTR+1 




000095 




LDA 


SISUSRBF 




000096 




STA 


SISDATP 




000097 










000098 




PAGE 






000099 


RDFAST 


JSR 


RDPOSN 


GET NEXT BLOCK DIRECTLY INTO USER SPACE. 


000100 




BCS 


ERRFIX 


BRANCH ON ANY ERROR. 


000101 


RDFASTO 


INC 


DATPTR+1 


BUMP ALL POINTERS BY 512 (ONE BLOCK) 


000102 




INC 


DATPTR+1 




000103 




DEC 


RWREQH 




000104 




DEC 


RWREQH 




000105 




INC 


TPOSLH 




000106 




INC 


TPOSLH 




00010 / 




BNE 


RDFAST 1 


BRANCH IF POSITION DOES NOT GET TO A 64K BOUNDARY. 


000108 




INC 


TPOSHI 


OTHERWISE, MUST CHECK FOR A 128K BOUNDARY 


000109 




LDA 


TPOSHI 


SET CARRY IF MOD 128K HAS BEEN REACHED 


000110 




EOR 


#1 




000111 




LSR 


A 




000112 


RDFAST 1 


DEC 


BULKCNT 


HAVE WE READ ALL WE CAN FAST? 


000113 




BNE 


RDFAST 2 


BRANCH IF MORE TO READ. 


000114 




JSR 


FXDATPTR 


GO FIX UP DATA POINTER TO SOS BUFFER. 


000115 




LDA 


RWREQL 


TEST FOR END OF READ. 


000116 




ORA 


RWREQH 


ARE BOTH ZERO? 


000117 




BEQ 


READONE 




000118 




BNE 


TREAD 


NO, READ LAST PARTIAL BLOCK. 


000119 










000120 


RDFAST2 


BCS 


RDFAST 




000121 




LDA 


TPOSHI 


GET INDEX TO NEXT BLOCK ADDRESS 


000122 




LSR 


A 




000123 




LDA 


TPOSLH 




000124 




ROR 


A 




000125 




TAY 




INDEX TO ADDRESS IS INT(POS/512) 


000126 




LDA 


(TINDX) , Y 


GET LOW ADDRESS 


000127 




STA 


BLOKNML 




000128 




INC 


TINDX+1 




000129 




CMP 


(TINDX) , Y 


ARE BOTH HI AND LOW ADDRESS THE SAME? 


000130 




BNE 


REALRD 


NO, IT'S A REAL BLOCK ADDRESS. 


000131 




CMP 


#0 


ARE BOTH BYTES ZERO? 


000132 




BNE 


REALRD 


NOPE — MUST BE REAL DATA 


000133 




STA 


IOACCESS 


DON'T DO REPEATIO JUST AFTER SPARSE 


000134 




BEQ 


NOSTUF 


BRANCH ALWAYS (CARRY SET) 


000135 


REALRD 


LDA 


(TINDX) , Y 


GET HIGH ADDRESS BYTE 


000136 




CLC 






000137 


NOSTUF 


DEC 


TINDX+1 




000138 




BCS 


RDFAST 


BRANCH IF NO BLOCK TO READ 


000139 




STA 


BLOKNMH 




000140 




LDA 


IOACCESS 


HAS FIRST CALL GONE TO DEVICE YET? 


000141 




BEQ 


RDFAST 


NOPE, GO THRU NORMAL ROUTE. . . 


000142 




LDA 


DATPTR+1 


RESET HI BUFFER ADDRESS FOR DEVICE HANDLER 


000143 




STA 


DBUFPH 




000144 




JSR 


RE PEAT IO 




000145 




BCC 


RDFASTO 


BRANCH IF NO ERRORS. 


000146 




PAGE 






000147 


ERRFIX 


PHA 




SAVE ERROR CODE 


n r> ri i AO 

UU U 1 4 o 




JSR 


FXDATPTR 


GO RESTORE DATA POINTERS, ETC. . . 


000149 




PLA 






000150 


ERRFIX1 


PHA 




SAVE ERROR CODE 


000151 




JSR 


READONE 


PASS BACK NUMBER OF BYTES ACTUALLY READ. 


000152 




PLA 






000153 




SEC 




REPORT ERROR 


000154 




RTS 






000155 










000156 


READONE 


LDY 


#0 


RETURN TOTAL NUMBER OF BYTES ACTUALLY READ 


000157 




SEC 




THIS IS DERIVED FROM C . BYTES-RWREQ 
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000158 




LDA 


C . BYTES 




000159 




SBC 


RWREQL 




000160 




STA 


(C . OUTCNT) , Y 




000161 




I NY 






000162 




LDA 


C . BYTES+1 




000163 




SBC 


RWREQH 




000164 




STA 


(C . OUTCNT) , Y 




000165 




JMP 


RDPOSN 


LEAVE WITH VALID POSITION IN FCB . 


000166 










000167 


PREPRW 


SEC 




ADJUST POINTER TO USER'S BUFFER TO 


000168 




LDA 


USRBUF 


MAKE THE TRANSFER 


000169 




SBC 


TPOSLL 




000170 




STA 


USRBUF 




000171 




BCS 


PREPRW1 


BRANCH IF NO ADJUSTMENT TO HI ADDR. NEEDED. 


000172 




DEC 


USRBUF+1 


NOTE: SARA ALLOWS INDIRECT FROM $101 UP 


000173 


PREPRW1 


LDY 


#FCBATTR 


AS LONG AS ACTUAL RESULTING ADDRESS IS >-$200 


000174 




LDA 


(FCBPTR) , Y 


TEST FOR NEW LINE ENABLED 


000175 




AND 


fNLINEN 


SET CARRY IF IT IS. 


000176 




CLC 






000177 




BEQ 


NONEWLIN 


BRANCH IF NEWLINE IS NOT ENABLED 


000178 




SEC 






000179 




LDY 


#FCBNEWL 




000180 




LDA 


(FCBPTR) , Y 


MOVE NEWLINE CHARACTER TO MORE 


000181 




STA 


NLCHAR 


ACCESSABLE SPOT . 


r\ n r\ *\ no 

000182 


NONEWLIN 


LDY 


TPOSLL 


GET INDEX TO FIRST DATA 


000183 




LDA 


DATPTR 


RESET LOW ORDER OF POSPTR TO BEGINNING OF PAGE. 


000184 




STA 


POSPTR 




000185 




LDX 


RWREQL 


AND LASTLY GET LOW ORDER COUNT OF REQUESTED BYTES 


000186 




RTS 




RETURN STATUSES. . . 


000187 










r\ n r\ *\ no 

000188 


READ PART 


TXA 






000189 




BNE 


RDPART 


BRANCH IF REQUEST IS NOT A EVEN PAGES 


000190 




LDA 


RWREQH 


A CALL OF ZERO BYTES SHOULD NEVER GET HERE ! 


000191 




BEQ 


SETRDNE 


BRANCH IF NOTHIN' TO DO. 


000192 




DEC 


RWREQH 




000193 


RDPARTO 


DEX 






000194 


RDPART 


LDA 


(POSPTR) , Y 


MOVE DATA TO USER ' S BUFFER 


000195 




STA 


(USRBUF) , Y 


ONE BYTE AT A TIME. 


000196 




TXA 




NOTE: THIS ROUTINE IS CODED TO BE 


000197 




BEQ 


ENDRQCHK 


FASTEST WHEN NEWLINE IS DISABLED. 


000198 


RD PARTI 


BCS 


TSTNEWL 


BRANCH IF NEW LINE NEEDS TO BE TESTED. 


000199 


RDPART 2 


DEX 






r\ n r\ n n n 

000200 




I NY 




PAGE CROSSED? 


000201 




BNE 


RDPART 


NO . MOVE NEXT BYTE . 


000202 




LDA 


POSPTR+1 


TEST FOR END OF BUFFER 


000203 




INC 


USRBUF+1 


BUT FIRST ADJUST USER BUFFER POINTER 


000204 




INC 


TPOSLH 


AND POSITION. 


o n n o n c 

000205 




BNE 


RDPART 3 




000206 




INC 


TPOSHI 




000207 


RDPART 3 


INC 


POSPTR+1 


AND SOS BUFFER HIGH ADDRESS. 


000208 




EOR 


DATPTR+1 


(CARRY HAS BEEN CLEVERLY UNDISTURBED.) 


000209 




BEQ 


RDPART 


BRANCH IF MORE TO READ IN BUFFER. 


000210 




CLV 




INDICATE NOT FINISHED. 


000211 




BVC 


RDPRTDNE 


BRANCH ALWAYS . 


000212 










000213 


ENDRQCHK 


LDA 


RWREQH 




000214 




BEQ 


RDRQDNE 


BRANCH IF REQEST SATISFIED. 


r\ n r\ n i c 

000215 




I NY 




DONE WITH THIS BLOCK OF DATA? 


000216 




BNE 


ENDRCHK1 


NO, ADJUST HIGH BYTE OF REQUEST. 


000217 




LDA 


POSPTR+1 


MAYBE- CHECK FOR END OF BLOCK BUFFER. 


r\ n n n i o 

000218 




EOR 


DATPTR+1 


(DON'T DISTURB CARRY) 


000219 




BNE 


ENDRCHK2 


BRANCH IF HI COUNT CAN BE DEALT WITH NEXT TIME. 


000220 


ENDRCHK1 


DEC 


RWREQH 




000221 


ENDRCHK2 


DEY 




RESTORE PROPER VALUE TO 'Y' 


000222 




JMP 


RDPART 1 




000223 










r\ n n n o /i 

000224 


TSTNEWL 


LDA 


(POSPTR) , Y 


GET LAST BYTE TRANSFERED AGAIN. 


000225 




EOR 


NLCHAR 


HAVE WE MATCHED NEWLINE CHARACTER? 


000226 




BNE 


RDPART 2 


NO, READ NEXT. 


000227 


RDRQDNE 


I NY 




ADJUST POSITION . 


000228 




BNE 


SETRDNE 




000229 




INC 


USRBUF+1 


BUMP POINTERS. 


000230 




INC 


TPOSLH 




000231 




BNE 


SETRDNE 




000232 




INC 


TPOSHI 




000233 


SETRDNE 


BIT 


SETVFLG 


(SET V FLAG) 


000234 


RDPRTDNE 


STY 


TPOSLL 


SAVE LOW POSITION 


000235 




BVS 


RDONE1 




000236 




I NX 




LEAVE REQUEST AS +1 FOR NEXT CALL 


000237 


RDONE1 


STX 


RWREQL 


AND REMAINDER OF REQUEST COUNT. 


000238 




PHP 




SAVE STATUSES 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



RDPART4 
SETVFLG 



CLC 
TYA 
ADC 
STA 
BCC 
INC 
PLP 
RTS 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
LDX 
JMP 



* READ DIRECTORY FILE . . 



JSR 
BCS 
JSR 
JSR 
BVC 
JSR 
BCC 
CMP 
SEC 
BNE 
JSR 
JSR 
LDY 
LDA 
PHA 
DEY 
LDA 
PHA 
LDA 
STA 
I NY 
STA 
TAY 
PLA 
STA 
PLA 
I NY 
STA 
CLC 
RTS 

JMP 

PAGE 

CLC 

LDY 

LDA 

AND 

BNE 

LDA 

SEC 

RTS 

JSR 

BCS 

LDY 
LDA 
STA 
ADC 
STA 
I NY 
LDA 
STA 
ADC 
STA 
I NY 



DREDONE 
DREDERR 



ERRACCS 
WPERROR 
WRITE 1 



USRBUF 
USRBUF 
RDPART4 
USRBUF+1 



DATPTR 

USRBUF 

DATPTR+1 

USRBUF+1 

SISDATP 

SISUSRBF 

#FCBBUFN 

(FCBPTR) ,Y 

#DATPTR 

GETBUFADR 



RDPOSN 

ERRDRD 

PREPRW 

READPART 

DREAD 

READONE 

DREDONE 

#EOFERR 

DREDERR 
SVMARK 
ZIPDATA 
#FCBDATB+1 
(FCBPTR) ,Y 



(FCBPTR) , Y 
#0 

(FCBPTR) ,Y 
(FCBPTR) ,Y 

(DATPTR) ,Y 

(DATPTR) , Y 

ERRFIX1 



tFCBATTR 
(FCBPTR) ,Y 
#WRITEN 
WRITE1 
IACCSERR 



TSTWPROT 
WPERROR 

IFCBMARK 
(FCBPTR) ,Y 
TPOSLL 
C. BYTES 
SCRTCH 

(FCBPTR) ,Y 
TPOSLH 
C.BYTES+1 
SCRTCH+1 



ADJUST USER'S LOW BUFFER ADDRESS 



ADJUST HI ADDRESS AS NEEDED. 
RESTORE RETURN STATUSES 

(THIS BYTE <$60> IS USED TO SET V FLAG) 

PUT CURRENT USER BUFFER 
ADDRESS BACK TO NORMAL 

BANK PAIR BYTE SHOULD BE MOVED ALSO. 



RESTORE BUFFER ADDRESS 



END VIA CALL TO BOB'S CODE. 



PASS BACK ANY ERRORS 

PREPARE FOR TRANSFER. 

MOVE DATA TO USER'S BUFFER 

REPEAT UNTIL REQUEST IS SATISFIED. 

UPDATE FCB AS TO NEW POSITION . 

BRANCH IF ALL IS WELL. 

WAS LAST READ TO END OF FILE? 

ANTICIPATE SOME OTHER PROBLEM 

BRANCH IF NOT EOF ERROR. 

CLEAR OUT DATA BLOCK. 

PROVIDE DUMMY BACK POINTER FOR FUTURE RE-POSITION 
GET HI BYTE OF LAST BLOCK. 



AND LOW BYTE. 

NOW MARK CURRENT BLOCK AS IMPOSIBLE. 



NOW MOVE LAST BLOCK ADDRESS TO DATA BUFFER AS BACK POINTER. 



INDICATE NO ERROR 



REPORT HOW MUCH WE COULD TRANSFER BEFORE ERROR. 



FIRST DETERMINE IF REQESTED 
WRITE IS LEGAL 

IS WRITE ENABLED? 
YES, CONTINUE. . . 
REPORT ILLEGAL ACCESS. 



OTHERWISE, MAKE SURE DEVICE IS NOT WRITE PROTECTED. 
REPORT WRITE PROTECTED AND ABORT OPERATION. 

GET CURRENT MARK INTO 'TPOS' AND 
DETERMINE IF RESULTING POSITION 
EXCEEDS CURRENT END OF FILE. 



(THIS WAS DONE STRAIGHT-LINE SINCE 
WE'RE ADDING A TWO BYTE TO A THREE 
BYTE QUANTITY) 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



WADJEOF 
WRTADJEOF 



WRITE2 



WRITE3 



WRITERROR 
WRITERR01 



WRITERR02 



LDA 
STA 
ADC 
STA 
LDY 
LDA 
CMP 
BCC 
BNE 
DEY 
CPY 
BNE 
CLC 
LDY 
LDA 
STA 
LDA 

STA 
I NY 
CPY 
BNE 
LDA 
STA 
BNE 
CMP 
BNE 
STA 
JMP 

PAGE 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDY 

LDA 

CMP 

BCC 

JMP 

JSR 

BCS 

LDY 

LDA 

AND 

BEQ 

LDY 

I NY 

LSR 

BNE 

STY 

STA 

JSR 

BCS 

LDY 

LDA 

AND 

BEQ 

JSR 

BCC 

PHA 

LDY 

LDA 

STA 

I NY 

CPY 

BNE 

LDY 

LDA 

STA 

I NY 

CPY 

BNE 

PLA 

SEC 

RTS 



(FCBPTR) , Y 
TPOSHI 
#0 

SCRTCH+2 
#FCBEOF+2 
SCRTCH-FCBEOF, Y 
(FCBPTR) ,Y 
WRITE2 
WADJEOF 

#FCBEOF-l 
WEOFTST 

tFCBEOF 
(FCBPTR) ,Y 
OLDEOF-FCBEOF, Y 
SCRTCH-FCBEOF, Y 

(FCBPTR) ,Y 

#FCBEOF+3 

WRTADJEOF 

C. BYTES 

RWREQL 

WRITE3 

C.BYTES+1 

WRITE3 

RWREQH 

WRIT DONE 



C.BYTES+1 

RWREQH 

C . OUTBUF 

USRBUF 

C.OUTBUF+1 

USRBUF+1 

SISOUTBF 

SISUSRBF 

#FCBSTYP 

(FCBPTR) ,Y 

ITRETYP+l 

T WRITE 

ERRACCS 

RDPOSN 

WRITERROR 

fFCBSTAT 

(FCBPTR) ,Y 

#DATALC+IDXALC+TOPALC 

TREWRT1 

#0 

A 

TWRTALC 

REQL 

REQH 

TSFRBLK 

WRITERROR 

#FCBSTAT 

( FCBPTR), Y 

#TOPALC 

TSTSAPWR 

TOPDOWN 

DBLOKALC 

#FCBEOF 

OLDEOF-FCBEOF, Y 
( FCBPTR), Y 

#FCBEOF+3 
WRITERR01 
IFCBMARK 

OLDMARK-FCBMARK, Y 
(FCBPTR) ,Y 

IFCBMARK+3 
WRITERR02 



ADD IN REMAINING CARRY. 

NOW TEST EOF AGAINST POSITION GENERATED 

IS NEW POSITION > EOF? 

NO, PROCEED. 

YES, ADJUST END OF FILE 

HAVE WE COMPARED ALL TREE BYTES? 

NO, TEST NEXT LOWEST. 

ADJUST REQUEST TO WRITE UP TO (BUT 

NOT INCLUDING) END OF FILE. 

SAVE OLD EOF IN CASE OF LATER ERROR 

RESULT— EOF 



BRANCH IF WRITE REQUEST DEFINITELY NON-ZERO. 
BRANCH IF WRITE REQUESTOZERO 
DO NOTHING. 



MOVE POINTER TO USERS BUFFER TO BFM 
Z-PAGE AREA. 



(SO IT MAY BE ADJUSTED WITHOUT LOOSING 
ORIGINAL ADDRESS . ) 



NOW FIND OUT IF IT'S A TREE WRITE OR OTHER. 



BRANCH IF A TREE FILE. 

OTHEWISE RETURN AN ACCESS ERROR! 

READ BLOCK WE'RE 



FIND OUT IF ENOUGH DISK SPACE IS AVAILABLE FOR 
INDEXES AND DATA BLOCK 



PASS BACK ANY ERRORS. 

NOW GET MORE SPECIFIC. 
ARE WE LACKING A TREE TOP? 

NO, TEST FOR LACK OF SAPLING LEVEL INDEX. 
GO ALLOCATE TREE TOP AND ADJUST FILE TYPE. 
CONTINUE WITH ALLOCATION OF DATA BLOCK. 
SAVE ERROR 



RESTORE OLD EOF UPON ERR 



; AND RESTORE OLD MARK! 



; ERROR RETURN 
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000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 



WRPART2 



WRPART3 



ENDWQCHK 



ENDWCHK1 
ENDWCHK2 



WRTRQDNE 



PAGE 

LDA 

AND 

BEQ 

JSR 

BCS 

JSR 

BCS 

LDA 

LSR 

LDA 

ROR 

TAY 

INC 

LDA 

TAX 

STA 

DEC 

LDA 

STA 

LDY 

STA 

I NY 

TXA 

STA 

LDY 

LDA 

ORA 

AND 

STA 

LDX 

JSR 

JSR 

JSR 

BVC 

JMP 

PAGE 

TXA 

BNE 

LDA 

BEQ 

DEC 
DEX 
LDA 
STA 
TXA 
BEQ 
I NY 
BNE 
LDA 
INC 
INC 
BNE 
INC 
INC 
EOR 
BEQ 
CLV 
BVC 

LDA 
BEQ 
I NY 
BNE 
LDA 
EOR 
BNE 
DEC 
DEY 
JMP 

I NY 
BNE 
INC 
INC 
BNE 
INC 



(FCBPTR) , Y 

# I DXALC 

DBLOKALC 

SAPDOWN 

WRITERROR 

ALCWBLK 

WRITERROR 

TPOSHI 

A 

TPOSLH 
A 

TINDX+1 
SCRTCH+1 

(TINDX) , Y 
TINDX+1 
SCRTCH 

(TINDX) , Y 
#FCBDATB 

(FCBPTR) ,Y 



A PIGGY-BACK BACKWARD BRANCH 



GET STATUS BYTE AGAIN. 

DO WE NEED A SAPLING LEVEL INDEX BLOCK? 

NO, ASSUME IT'S JUST A DATA BLOCK NEEDED. 

GO ALLOCATE AN INDEX BLOCK AND UPDATE TREE TOP. 

RETURN ANY ERRORS. 

GO ALLOCATE FOR DATA BLOCK. 

CALCULATE POSITION WITHIN INDEX BLOCK. 



NOW PUT BLOCK ADDRESS INTO INDEX BLOCK 
HIGH BYTE FIRST. 



; (RESTORE POINTER TO LOWER PAGE OF INDEX BLOCK) 
; GET LOW BLOCK ADDRESS 
; NOW STORE LOW ADDRESS. 

; ALSO UPDATE FILE CONTROL BLOCK TO INDICATE 
; THAT THIS BLOCK IS ALLOCATED. 



GET HIGH ADDRESS AGAIN. 



(FCBPTR) ,Y 
IFCBSTAT 
(FCBPTR) ,Y 
#IDXMOD 

#$FF-DATALC-IDXALC-TOPALC 
(FCBPTR) ,Y 



CLEAR ALLOCATION REQUIREMENT BITS. 



#USRBUF 

WRAPADJ 

PREPRW 

WRTPART 

TWRITEGO 

RDPOSN 



WRPART 
RWREQH 
SETWRDNE 

RWREQH 

(USRBUF) ,Y 
(POSPTR) ,Y 

ENDWQCHK 

WRPART 

POSPTR+1 

USRBUF+1 

TPOSLH 

WRPART 3 

TPOSHI 

POSPTR+1 

DATPTR+1 

WRPART 

WRPRTDNE 

RWREQH 
WRTRQDNE 

ENDWCHK1 
POSPTR+1 
DATPTR+1 
ENDWCHK2 
RWREQH 

WRPART 2 



SETWRDNE 

USRBUF+1 

TPOSLH 

SETWRDNE 

TPOSHI 



; LOCATE POINTER TO ADJUST <SRS 82.162> 
; ADJUST FOR BANK CROSSING <SRS 82.162> 
; WRITE ON 



UPDATE FCB WITH NEW POSITION. 



BRANCH IF REQUEST IS NOT A EVEN PAGES 

A CALL OF ZERO BYTES SHOULD NEVER GET HERE! 

DO NOTHING! 



MOVE DATA FROM USER'S BUFFER 
ONE BYTE AT A TIME. 



PAGE CROSSED? 

NO. MOVE NEXT BYTE. 

TEST FOR END OF BUFFER 

BUT FIRST ADJUST USER BUFFER POINTER 

AND POSITION. 



AND SOS BUFFER HIGH ADDRESS. 
(CARRY HAS BEEN CLEVERLY UNDISTURBED.) 
BRANCH IF MORE TO WRITE TO BUFFER. 
INDICATE NOT FINISHED. 
BRANCH ALWAYS. 



BRANCH IF REQEST SATISFIED. 

ARE WE DONE WITH THIS BLOCK OF DATA? 

BRANCH IF NOT. 

WHILE THIS IS REDUNDANT, IT'S NECESSARY FOR 
PROPER ADJUSTMENT OF REQUEST COUNT. 
(NOT FINISHED- OK TO ADJUST HI BYTE.) 
RESET MODIFIED Y 



AND POSITION. 
BUMP POINTERS. 
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000482 


SETWRDNE 


BIT 


SETVFLG 


(SET V FLAG) 


000483 


WRPRTDNE 


STY 


TPOSLL 


SAVE LOW POSITION 


000484 




STX 


RWREQL 


AND REMAINDER OF REQUEST COUNT. 


000485 




PHP 




SAVE STATUSES 


000486 




LDY 


#FCBSTAT 




000487 




LDA 


(FCBPTR) , Y 




000488 




ORA 


#DATMOD+USEMOD 




000489 




STA 


(FCBPTR) , Y 




000490 




CLC 




ADJUST USER'S LOW BUFFER ADDRESS 


000491 




LDA 


TPOSLL 




000492 




ADC 


USRBUF 




000493 




STA 


USRBUF 




0004 94 




BCC 


WRPART4 




000495 




INC 


USRBUF+1 


ADJUST HI ADDRESS AS NEEDED. 


000496 


WRPART4 


JSR 


FCBUSED 


SET DIRECTORY FLUSH BIT 


000497 




PLP 




RESTORE RETURN STATUSES 


000498 




RTS 






000499 




PAGE 






000500 


TOPDOWN 


JSR 


SWAP DOWN 


FIRST MAKE CURRENT 1ST BLOCK AN ENTRY IN NEW TOP. 


000501 




BCS 


TPDWNERR 


RETURN ANY ERRORS 


000502 




LDY 


#FCBSTYP 


FIND OUT IF STORAGE TYPE HAS BEEN CHANGED TO 'TREE 1 . 


000503 




LDA 


(FCBPTR) , Y 


(IF NOT, ASSUME IT WAS ORIGINALLY A SEED AND 


000504 




CMP 


#TRETYP 


BOTH LEVELS NEED TO BE BUILT. 


000505 




BEQ 


TOPDWN1 


OTHERWISE, ONLY AN INDEX NEED BE ALLOCATED) 


000506 




JSR 


SWAP DOWN 


MAKE PREVIOUS SWAP A SAP LEVEL INDEX BLOCK. 


000507 




BCS 


TPDWNERR 




000508 


TOPDWN1 


JSR 


ALCWBLK 


GET ANOTHER BLOCK ADDRESS FOR THE SAP LEVEL INDEX. 


000509 




BCS 


TPDWNERR 




000510 




LDA 


TPOSHI 


CALCULATE POSITION OF NEW INDEX BLOCK 


000511 




LSR 


A 


IN THE TOP OF THE TREE . 


000512 




TAY 






000513 




LDA 


SCRTCH 


GET ADDRESS OF NEWLY ALOCATED INDEX BLOCK AGAIN 


000514 




TAX 






000515 




STA 


(TINDX) , Y 




000516 




INC 


TINDX+1 




000517 




LDA 


SCRTCH+1 




000518 




STA 


(TINDX) , Y 


SAVE HI ADDRESS 


000519 




DEC 


TINDX+1 




000520 




LDY 


#FCBIDXB+1 


MAKE NEWLY ALLOCATED BLOCK THE CURRENT INDEX BLOCK. 


000521 




STA 


(FCBPTR) , Y 




000522 




TXA 






000523 




DEY 






000524 




STA 


(FCBPTR) , Y 




000525 




JSR 


WFCBFST 


SAVE NEW TOP OF TREE. 


000526 




BCS 


TPDWNERR 




000527 




JMP 


ZTMPIDX 


END BY RE-CLEARING CURRENT (NEW) INDEX BLOCK. 


000528 










000529 


SAPDOWN 


LDY 


#FCBSTYP 


FIND OUT IF WE'RE DEALING WITH A TREE 


000530 




LDA 


(FCBPTR) , Y 


OR A SIMPLE SEED. 


000531 




CMP 


#SEEDTYP 


IF SEED THEN AN ADJUSTMENT TO FILE TYPE IS NECESSARY 


000532 




BEQ 


SAPDWN1 


BRANCH IF SEED . 


000533 




JSR 


RFCBFST 


OTHERWISE READ IN TOP OF TREE. 


r\ n n it o a 

000534 




BCC 


TOPDWN1 


BRANCH IF NO ERROR. 


000535 


TPDWNERR 


RTS 




RETURN ERRORS 


000536 










000537 




PAGE 






000538 


SAPDWN1 


EQU 




MAKE CURRENT SEED INTO A SAPLING 


000539 










000540 


SWAP DOWN 


JSR 


ALCWBLK 


ALLOCATE A BLOCK BEFORE SWAP 


000541 




BCS 


SWAP ERR 


RETURN ERRORS IMMEDIATELY. 


000542 




LDY 


#FCBFRST 


GET PREVIOUS FIRST BLOCK 


000543 




LDA 


(FCBPTR) , Y 


ADDRESS INTO INDEX BLOCK. 


000544 




PHA 




SAVE TEMPORARLY WHILE SWAPPING IN NEW TOP INDEX 


000545 




LDA 


SCRTCH 


GET NEW BLOCK ADDRESS (LOW) 


000546 




TAX 






000547 




STA 


(FCBPTR) , Y 




000548 




I NY 






000549 




LDA 


(FCBPTR) , Y 




000550 




PHA 






000551 




LDA 


SCRTCH+1 


AND HIGH ADDRESS TOO. 


000552 




STA 


(FCBPTR) , Y 




000553 




LDY 


#FCBIDXB+1 


MAKE NEW TOP ALSO THE CURRENT INDEX IN MEMORY. 


000554 




STA 


(FCBPTR) , Y 




000555 




TXA 




GET LOW ADDRESS AGAIN 


000556 




DEY 






000557 




STA 


(FCBPTR) , Y 




000558 




LDY 


#0 


MAKE PREVIOUS THE FIRST ENTRY IN SUB INDEX 


000559 




INC 


TINDX+1 




000560 




PLA 






000561 




STA 


(TINDX) , Y 




000562 




DEC 


TINDX+1 
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000563 




PLA 










000564 




STA 


(TINDX) , Y 








000565 




JSR 


WFCBFST 






SAVE NEW FILE TOP. 


000566 




BCS 


SWAP ERR 








000567 




LDY 


#FCBSTYP 






NOW ADJUST STORAGE TYPE 


000568 




LDA 


#1 






BY ADDING 1 (THUS SEED BECOMES SAPLING BECOMES TREE 


000569 




ADC 


(FCBPTR) , Y 








000570 




STA 


(FCBPTR) , Y 








000571 




LDY 


#FCBSTAT 








000572 




LDA 


(FCBPTR) , Y 






MARK STORAGE TYPE MODIFIED. 


000573 




ORA 


#STPMOD 








000574 




STA 


(FCBPTR) , Y 








000575 




CLC 








RETURN 'NO ERROR' STATUS. 


r\ n n it t r 

0005 /o 


SWAP ERR 


RTS 










000577 














000578 




PAGE 










000579 


ALCWBLK 


JSR 


ALC1BLK 








000580 




BCS 


ALUS ERR 








000581 




LDY 


#FCBUSE 








000582 




LDA 


(FCBPTR) , Y 






BUMP CURRENT USAGE COUNT BY 1 . 


000583 




CLC 










000584 




ADC 


#1 








r\ c\ r\ c o it 

000585 




STA 


(FCBPTR) , Y 








000586 




BCC 


INCUSG1 








000587 




I NY 










000588 




LDA 


(FCBPTR) , Y 








000589 




ADC 


#0 








000590 




STA 


(FCBPTR) , Y 








000591 


INCUSG1 


LDY 


fFCBSTAT 






MARK USAGE AS MODIFIED. 


000592 




LDA 


(FCBPTR) , Y 








000593 




ORA 


fUSEMOD 








000594 




STA 


(FCBPTR) , Y 








r\ n n n r\ it 

000595 




CLC 








INDICATE NO ERROR 


000596 


ALUS ERR 


RTS 








ALL DONE 


000597 














000598 


TSTWPROT 


LDY 


#FCBSTAT 






CHECK FOR A 'NEVER BEEN MODIFIED' CONDITION 


000599 




LDA 


(FCBPTR) , Y 






GET STATUS BYTE 


000600 




AND 


#USEMOD+DATMOD+IDXMOD+EOFMOD 


000601 




CLC 








ANTICIPATE WRITE OK 


000602 




BNE 


ALUS ERR 






ORDINARY RTS 


000603 




LDY 


fFCBDEVN 






GET FILE'S DEVICE NUMBER 


000604 




LDA 


(FCBPTR) , Y 








000605 




STA 


DEVNUM 






GET CURRENT STATUS OF BLOCK DEVICE 


000606 


TWRPROT1 


LDA 


#STATCMD 








000607 




STA 


DHPCMD 








000608 




LDA 


#STATSUB 






STORE SUB COMMAND OF STATUS CALL 


000609 




STA 


DSTATREQ 








000610 




LDA 


#>TWRCODE 








000611 




STA 


DSTATBFL 






FETCH RETURN CODE IN SCRATCH AREA 


000612 




LDA 


#<TWRCODE 








000613 




STA 


DSTATBFH 








000614 




LDA 


#0 






MAKE SURE REGULAR RAM IS SELECTED (NO BANKS) 


000615 




STA 


SISDSTAT 








000616 




STA 


SERR 






CLEAR GLOBAL ERROR FLAG 


000617 




LDA 


DEVNUM 






SET UP LAST PARM 


000618 




STA 


UNITNUM 






FOR DEVICE CALL 


000619 




JSR 


DMGR 






MAKE THE EXTERNAL CALL 


000620 




BCS 


WPROTRET 






RETURN ANY SPECIFIC ERRORS 


000621 




LDA 


TWRCODE 






GET STATUS BYTE 


000622 




LSR 


A 






SHIFT WRITE PROTECT STATE INTO CARRY 


000623 




LSR 


A 








000624 




LDA 


IXNOWRITE 






ANTICIPATE WRITE PROTECTED. 


000625 




RTS 








CARRY IS INDETERMINATE 


000626 


WPROTRET 


EQU 


* 








000627 




CMP 


#XDISKSW 






IF EXPLICITLY DISK SWITCH 


000628 




BNE 


WPROT1 






BRANCH IF XNODRIVE OR XNOWRITE 


000629 




STA 


DSWGLOB 






IF DISKSW, FLAG UNTIL ENTIRE OPERATION IS COMPLETE 


000630 




CLC 










000631 




RTS 








DISKSWITCH DOESNT SET CARRY 


000632 


WPROT1 


SEC 










000633 




RTS 










000634 


DSWGLOB 


DS 


1 






DISK SWITCH GLOBAL 


000635 


TWRCODE 


DS 


1 






A RARE EMBEDDED TEMP STORE 


000636 














000637 




PAGE 










000638 














000639 


* MEMORY 


WRAP-AROUND ' 


ADJUST ROUTINE. 


THIS ROUTINE ADJUSTS 


000640 


* ADDRESSES THAT CROSS 


BANK PAIR BOUNDARIES. ON 


ENTRY, X CONTAINS 


000641 


* THE OFFSET OF THE ZERO PAGE EXTENDED POINTER 


TO BE ADJUSTED. 


000642 


* ON EXIT 


THE POINTER 


WILL HAVE BEEN 


ADJUSTED, 


IF NECESSARY, 


000643 


* AND THE 


ASSOCIATED X- 


-BYTE WILL ALSO 


HAVE BEEN 


ADJUSTED. 
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000644 
000645 
000646 
000647 
000648 
000649 
000650 
000651 
000652 
000653 
000654 
000655 
000656 
000657 
000658 
000659 
000660 
000661 
000662 
000663 
000664 
000665 
000666 
000667 
000668 
000669 



ONLY ADDRESSES IN THE RANGE $8200-$8E00 WILL BE ADJUSTED. 

Y CONTAINS UPDATED X-BYTE . 



UPON EXIT, A CONTAINS HIGH BYTE OF ADDRESS S 
THIS ROUTINE LEAVES X UNCHANGED. 



LDA 
LDY 
BPL 
CMP 
BCC 
CPY 
BCS 
AND 
STA 
INC 
I NY 

RTS 

CHN 



1,X 

SISTER+1,X 

WRAPDNE 

#$82 

WRAPDNE 

#$8F 

WRAPDNE 

#$7F 

1,X 

SISTER+1,X 



CLOSE/EOF, 4, 2 



GET HIGH ADDRESS BYTE <SRS 82.162> 

CHECK X-BYTE <SRS 82.162> 

NOT AN EXTENDED ADDRESS. <SRS 82.162> 

DOES IT NEED UPDATING? <SRS 82.162> 

NO <SRS 82.162> 

SPECIAL BANK? <SRS 82.162> 

NO <SRS 82.162> 

ADJUST THE ADDRESS <SRS 82.162> 
UPDATE <SRS 82.162> 
INCREMENT X-BYTE <SRS 82.162> 
UPDATE Y ALSO <SRS 82.162> 

; RETURN VALID HIGH ADDRESS AND BANK BYTE. 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: READ. WRITE 

************************************************************************* 



End of File 



Lines: 669 Characters: 27951 
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FILE: "SOS. SCMGR. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: SCMGR. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 

INCLUDE 
ORG 
EQU 
MSB 
REP 

COPYRIGHT (C 



"SOS 1.1 SYSTEM CALL MANAGER" 

SOSORG, 6,1,254 
ORG SCMGR 



REP 



OFF 

60 

APPLE COMPUTER INC. 
ALL RIGHTS RESERVED 
60 



1980 



SYSTEM CALL MANAGER (VERSION =1.10 ) 
(DATE = 8/04/81) 

THE SYSTEM CALL MANAGER: 

(1) RETRIEVE THE SYSCALL #, 

(2) DETERMINE THE LOCATION OF THE SYSTEM CALL FARMS AND 
MOVE THEM TO THE SOS Z PAGE , 

TRANSFER CONTROL TO THE APPROPRIATE INTERFACE MANAGER, 
(FILE, DEVICE, UTILITY, MEMORY) 



(3) 



REP 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

PAGE 

REP 



60 



FMGR 
DMGR 
UMGR 
MMGR 
DBUGBRK 

SYSERR 
SERR 

BADSCNUM 

BADCZPAGE 

BADXBYTE 

BADSCPCNT 

BADSCBNDS 

SZPAGE 
SXPAGE 
CZPAGE 
CXPAGE 
CSPAGE 

60 



* SYSTEM CALL PARAMETER DEFINITION TABLES 
* 

* EACH ENTRY IS FOUR BYTES LONG. THE FIRST BYTE CONTAINS THE 

* NUMBER OF FARMS IN THE CALL. THE REMAINING SIX NIBBLES, EACH 

* DEFINE A PARAMETER IN THE CALL. THE FIRST BIT OF THE 

* NIBBLE DEFINES WHETHER THE PARM IS INPUT (0) OR OUTPUT (1) . 

* THE NEXT BIT DEFINES WHETHER THE PARM IS BY VALUE (0) 

* OR BY REFERENCE (1) . THE FINAL TWO BITS SPECIFY THE 

* PARM LENGTH IN BYTES (E.G. 0=LENGTH OF 1, 3=LENGTH OF 4 BYTES) 



REP 



60 



FILE SYSTEM CALL DEFINITIONS 



FSC.CNT 
FSC.TBL 



EQU 


$13 






EQU 








DFB 


$3, $5D, $00, $00 


SCNUM=$C0 


- CREATE 


DFB 


$1, $50, $00, $00 


" =$C1 


- DESTROY 


DFB 


$2, $55, $00, $00 


" =$C2 


- RENAME 


DFB 


$3,$5D,$00,$00 


" =$C3 


- SET. FILE. INFO 


DFB 


$3,$5D,$00,$00 


" =$C4 


- GET. FILE. INFO 


DFB 


$4, $55, $99, $00 


" =$C5 


- VOLUME 


DFB 


$1, $50, $00, $00 


" =$C6 


- SET. PREFIX 


DFB 


$2, $50, $00, $00 


" =$C7 


- GET. PREFIX 
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ouuu / / 




DFB 


£ a e iz o e t\ n enn 
94 , 900 , 9DU , 9 UU 


" -$C8 - 


OPEN 


n n n n ~7 o 
UUUU /o 




DFB 


e enn enn enn 
$3, 9UU, 9UU, 9UU 


" =$C9 - 


NEW . LINE 


n n n m n 

uuuu /y 




DFB 


e a cnt e 1 n enn 

94 , 9U0 , 9-Ly , 9UU 


" — $CA - 


READ 


UUUUHU 




DFB 


e tnc e 1 n enn 
$3, 9U0, 9IU, 9UU 


" =$CB - 


WRITE 


n n n n o i 
UUUUol 




DFB 


e 1 e n n enn enn 
9l, 9UU, 9UU, 9UU 


" =$CC - 


CLOSE 


n n n n o o 

uuuuaz 




DFB 


e i enn enn enn 
51, 500, 500, SOU 


" =$CD - 


FLUSH 


n n n n o o 
OUUUoJ 




DFB 


e enn eon enn 
$3, 9UU, 9-jU, 9UU 


" -$CE - 


SET . MARK 


UUUUH4 




DFB 


t'O ^ nn enn enn 
9Z, 9UB, 9UU, 9UU 


" -$CF - 


GET . MARK 


n n n n o c 
UUUUoo 




DFB 


e enn eon enn 
90, 9UU, 9 U , 9UU 


" -$do - 


SET . EOF 


UUUUofo 




DFB 


eo ^ nn enn enn 
9Z , 9UB, 9 U U , 9 UU 


" — $D1 - 


GET . EOF 


r\ n n r\ o t 
UUUUo / 




DFB 


^ 1 enn enn enn 
91/ 9UU, 9UU, 9UU 


" — $D2 - 


SET . LEVEL 


n n n n o o 
UUUUoo 




DFB 


ei eon enn enn 
91/ 90U, 9UU, 9UU 


" -$D3 - 


GET . LEVEL 


n n n n o n 

uuuuay 




PAGE 








uuuuyu 












uuuuyi 


* DEVICE 


SYSTEM CALL 


DEFINITIONS 






uuuuyz 












r\ n n n ri o 

uuuuyj 


DSC . CNT 


EQU 


5 






r\ n n r\ ri yi 

uuuuy4 


DSC . TBL 


EQU 








uu uu yo 




DFB 


(■c enc eii onn 

90, 9Ua, 911, 9 y u 


c J^ ,- ^TTT^4 eon 

SCNUM— 90U - 




uuuuyfo 




DFB 


£ a enc eii enn 
94, 9U0, 9ll, 9UU 


" =$81 - 


D . WRITE 


uuuuy / 




DFB 


eo enn ecn enn 
9o* 9UU, 9oU, 9UU 


" =$82 - 


D . STATUS 


n n n n n o 

uuuuya 




DFB 


eo enn ecn enn 
? j, 9UU, 90U, 9UU 


" =$83 - 


D . CONTROL 


n n n n n n 

uuuuyy 




DFB 


eo eco enn enn 
9z, 900, 9UU, 9UU 


" =$84 - 


GET . DEV . NUM 


n n n i n n 
UUU1UU 




DFB 


e/i enrz enn enn 
94, 9U0, 9DU, 9UU 


" —$85 - 


D . INFO 


nn n i n i 
UUU1U1 












n n n i no 
UU U 1 Uz 


* UTILITY 


SYSTEM CALL 


DEFINITIONS 






n n n i no 
UUUlUo 












n n n i n a 
UUU1U4 


USC . CNT 


EQU 


5 






n n n i n iz 
UUUlUo 


USC . TBL 


EQU 








n n n i n r 
UUU1U6 




DFB 


ei enn enn enn 
91/ 9UU, 9UU, 9UU 


SCNUM-$60 - 


SET . FENCE 


n n n i n i 
UUU1U / 




DFB 


ei eon enn enn 
9l, 90U, 9UU, 9UU 


" =$61 - 


GET . FENCE 


n n n i no 
UUUlUo 




DFB 


ei ecn enn enn 
9l^ 9oU, 9UU, 9UU 


" =$62 - 


SET . TIME 


n n n i n n 

uuuiuy 




DFB 


ei ecn enn enn 
9l, 90U, 9UU, 9UU 


" =$63 - 


GET . TIME 


n n m i n 
UU Ull u 




DFB 


ci enn enn enn 
9Z , 9Ur>, 9 U U , 9 UU 


" =$64 - 


JUi 01 lL,r\ 


U00111 




DFB 


en enn enn enn 
9U, 9UU, 9UU, 9UU 


" -$65 - 


COLD . START 


n n n i t o 
UUUllz 












n n n t t o 
UUUllo 


* MEMORY 


SYSTEM CALL 


DEFINITIONS 






n n n t t /i 
UU U114 












000115 


MSC . CNT 


EQU 


5 






n n n i i r 
UUU116 


MSC . TBL 


EQU 


-k 






n n n i i "~i 
UUU11 / 




DFB 


$4, $11, $08, $00 


SCNUM— $40 - 


REQUEST . SEG 


n n n n i o 

UUUllo 




DFB 


$6,$oo,$9y,$y8 


" =$41 - 


FIND . SEG 


n n n i i n 

uuuiiy 




DFB 


S3, $00, $90, $00 


" =$42 - 


CHANGE . SEG 


n n n i on 
UUU12U 




DFB 


$5, $09, $99, $80 


" =$43 - 


GET . SEG . INFO 


n n n i n 
UU Ulz 1 




DFB 


$2, $18, $00, $00 


" —$44 - 


GET . SEG . NUM 


n n n i o o 
UU Ulzz 




DFB 


$1, $00, $00, $00 


" =$45 - 


RELEASE . SEG 


000123 












n n n i n a 
UU Ulz4 


* DEBUG SYSTEM CALL DEFINITION 






n n m or 
UU Ulzo 












n n n i o r 
UUU126 


DBUG 


EQU 


$FE 






n n n i o i 
UUU12 / 




PAGE 








n n n i o o 
UUUlzo 




REP 


60 






n n n i on 
UU Ulz y 


-k 










n n n i on 
UUU13U 


* DATA DECLARATIONS 








n n n i o i 
UUU131 












n n n i o o 
UUU132 




REP 


60 






n n n t o o 

UUUlio 


Z .REG 


EQU 


$FFD0 






n n n i o a 
0UU134 


S P. SAVE 


EQU 


$01FF 






n n n i o c 
UUU135 


Z . SAVE 


EQU 


$01FD 






n n n i or 
UUU136 


B . SAVE 


EQU 


$01FC 






UU Ul o I 












n n n i o o 
UUUloo 


ADR. LOW 


EQU 


$2000 


LOW ADDRESS (BOUNDS CHECKING) 


n n n i on 

uuui jy 


ADR. HIGH 


EQU 


$B800 


HIGH ADDRESS 


n n n i /in 
UUU14U 


ADR. MID 


EQU 


$A000 


MIDDLE ADDRESS 


n n n i /m 
UU Ul 4 1 












n n n i a o 
UU U 1 4z 


* SCMGR'S VARIABLES 








n n n i /i o 
UUU14 J 












n n n i a a 
UU U 1 44 


SCM. VARS 


EQU 


$E0 






n n n i a iz 

000145 


SCNUM 


EQU 


SCM.VARS+0 


SYSTEM CALL 


NUMBER 


OU U 1 4 D 


SCRNUM 


EQU 


SCM.VARS+0 


SYSTEM CALL 


REQUEST NUMBER 


000147 


SCPTR 


EQU 


SCM.VARS+1 


&2 SYSTEM CALL POINTER 


000148 


MOVE . VARS 


EQU 


SCPTR+2 


! ! (LOOKOUT 


! ! 


000149 












000150 












000151 


F.TPARMX 


EQU 


$A0 


FILE SYS CALL FARM START LOC 


000152 


D . TPARMX 


EQU 


$C0 


DEVICE SYS CALL PARM START LOC 


000153 


U . TPARMX 


EQU 


$C0 


UTILITY SYS 


CALL PARM START LOC 


000154 


M. TPARMX 


EQU 


$60 


MEMORY SYS CALL PARM START LOC 


000155 












000156 


* MOVE. FARM 


'S VARIABLES 








000157 
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000158 


TPARMX EQU 


MOVE . VARS+0 


000159 


DFN . PTR EQU 


MOVE . VARS+1 


000160 


DFN . PTRX EQU 


MOVE . VARS+3 


000161 


SCPTRX EQU 


MOVE . VARS+4 


000162 


RGHT.NIB EQU 


MOVE . VARS+5 


000163 


SCT.DFN EQU 


MOVE . VARS+6 


000164 


SCT.DCNT EQU 


MOVE . VARS+7 


000165 


PARM.CNT EQU 


MOVE . VARS+8 


000166 




PAGE 




000167 




REP 


60 


000168 


* 






000169 


* 


SYSTEM CALL MANAGER 




000170 


* 






000171 




REP 


60 


000172 


* 






000173 


SCMGR EQU 


* 


000174 




LDA 


#<SZPAGE 


000175 




STA 


Z .REG 


000176 


* 






000177 


* 


SET SYSTEM X BYTES TO ABSOLUTE ADDRESS MODE 


000178 


* 






000179 




LDA 


#0 


000180 




STA 


SXPAGE+SCPTR+1 


000181 




STA 


SERR 


000182 


* 






000183 


* 


CALLER'S Z REG MUST 


3E $1A ! ! 


000184 


* 


(B REG NOT CHECKED) 




000185 


* 






000186 




LDA 


Z . SAVE 


000187 




CMP 


#<CZPAGE 


000188 




BEQ 


SCM005 


000189 




LDA 


# >BADC Z PAGE 


000190 




JSR 


SYSERR 


000191 


* 






000192 




RETRIEVE CALLER'S PC 


ON HIS STACK 


000193 


* 






000194 


SCM005 LDX 


S P . SAVE 


000195 




LDA 


CSPAGE+6, X 


000196 




STA 


SCPTR+1 


000197 




LDA 


CSPAGE+5, X 


000198 




STA 


SCPTR 


000199 




BNE 


SCM010 


000200 




DEC 


SCPTR+1 


000201 


SCM010 DEC 


SCPTR 


000202 


* 






000203 


* 


ADVANCE CALLER'S PC 


ON HIS STACK. 


000204 


* 






000205 




CLC 




r\ r\ r\ o n r 

000206 




LDA 


CSPAGE+5, X 


000207 




ADC 


#2 


000208 




STA 


CSPAGE+5, X 


000209 




BCC 


SCM020 


000210 




INC 


CSPAGE+6, X 


000211 








000212 


* 


RETRIEVE SYSTEM CALL 


NUMBER 


000213 


* 






000214 


SCM020 LDY 


#0 


000215 




LDA 


(SCPTR) ,Y 


000216 




CMP 


#DBUG 


000217 




BNE 


SCM025 


000218 




JSR 


DBUGBRK 


000219 


SCM025 STA 


SCNUM 


000220 


* 






000221 


* 


RETRIEVE SYSTEM CALL 


PARAMETER ADDRESS 


000222 


* 






000223 




I NY 




000224 




LDX 


#>SCPTR 


000225 




JSR 


POINTER 


000226 




BCC 


SCM030 


000227 




RTS 




000228 








000229 


* 


CASE INTERFACE CODE 


OF SYSTEM CALL NUMBER 


000230 


* 


(INTERFACE CODE STRIPPED, LEAVING REQUEST 


000231 


* 






000232 


SCM030 LDA 


#$20 


000233 




BIT 


SCNUM 


000234 




BPL 


SCM050 


000235 




LDA 


SCNUM 


000236 




AND 


#$3F 


000237 




STA 


SCRNUM 


000238 




BVC 


SCM040 



; TARGET ADR OF SYS CALL PARMS 
;&2 



SET Z REG TO SOS ZPAGE 



; AND INIT SYSTEM ERR CODE 



; EXIT TO DISPATCHER 



; AND POINT IT TO SYS CALL NUM 



DEBUG SYSTEM CALL 



ERROR EXIT 
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000239 












000240 


LDA 






#F. TPARMX 


; "11XXXXXX" - JMP TO FILE MANAGER. 


000241 


STA 






TPARMX 




000242 


LDX 






#>FSC . TBL 




000243 


LDY 






#<FSC.TBL 




000244 


LDA 






#FSC . CNT 




000245 


JSR 






MOVE . PARMS 




000246 


BCS 






SCM . ERR1 


; ERR EXIT 


000247 


JMP 






FMGR 




000248 












000249 


SCM040 LDA 






#D. TPARMX 


; "10XXXXXX" - JMP TO DEVICE MANAGER. 


000250 


STA 






TPARMX 




000251 


LDX 






#>DSC . TBL 




000252 


LDY 






#<DSC . TBL 




000253 


LDA 






#DSC . CNT 




000254 


JSR 






MOVE . PARMS 




000255 


BCS 






SCM.ERR1 


; ERR EXIT 


000256 


JMP 






DMGR 




000257 












000258 


SCM050 BVC 






SCM . ERR 




000259 


PHP 










000260 


LDA 






SCNUM 




000261 


AND 






#$1F 




000262 


STA 






SCRNUM 




0002 63 


PLP 










000264 


BEQ 






SCM060 




000265 












000266 


LDA 






#U . TPARMX 


; "011XXXXX" - JMP TO UTILITY MANAGER. 


000267 


STA 






TPARMX 




000268 


LDX 






#>USC . TBL 




000269 


LDY 






#<USC . TBL 




000270 


LDA 






#USC .CNT 




000271 


JSR 






MOVE . PARMS 




000272 


BCS 






SCM . ERR1 


; ERR EXIT 


000273 


JMP 






UMGR 




000274 












000275 


SCM060 LDA 






#M. TPARMX 


; "010XXXXX" - JMP TO MEMORY MANAGER. 


000276 


STA 






TPARMX 




000277 


LDX 






#>MSC.TBL 




000278 


LDY 






#<MSC . TBL 




000279 


LDA 






#MSC . CNT 




000280 


JSR 






MOVE . PARMS 




000281 


BCS 






SCM.ERR1 


; ERR EXIT 


000282 


JMP 






MMGR 




000283 












000284 


S CM. ERR LDA 






#>BADSCNUM 


; ERROR, INVALID SYSTEM CALL NUMBER. 


000285 


SCM.ERR1 JSR 






SYSERR 


EXIT TO DISPATCHER ON ERROR 


000286 


PAGE 










000287 


REP 






60 




r\ n r\ o o o 

000288 












000289 


* MOVE.PARMS 










0002 90 












000291 


* MOVES THE CALLER'S 


PARAMETERS TO THE OPERATING 


SYSTEM'S 


000292 


* ZERO PAGE, ACCORDING 


TO 


THE SPECIFICATIONS CONTAINED 


000293 


* IN THE SPECIFIED SYS 


CALL DFN TABLE. 




000294 












000295 


* INPUT: (A) = MAX # 


ENTRIES IN PARM DFN TABLE 




000296 


* (X) = PARM 


DFN TBL ADR (LO) 




000297 


(Y) = 






(HI) 




000298 


* SCPTR = ADR OF CALLER'S SYS CALL PARMS 




000299 


* ERROR: CARRY SET (SYSERR) 




000300 












000301 


REP 






60 




000302 












000303 


MOVE . PARMS EQU 










000304 


STX 






DFN.PTR 


; SAVE ADR OF DEFINITION TABLE 


r\ n n o n c 

000305 


STY 






DFN. PTR+1 




000306 


-k 










000307 


* IF REQ NUM > MAX REQ 


NUM (A REG) 




000308 












000309 


CMP 






SCRNUM 




000310 


BCS 






MOVE010 




000311 












000312 


* THEN ERR (BAD SYS 


CALL 


NUM) 




000313 


-k 










000314 


LDA 






#>BADSCNUM 




000315 


BCC 






SYSERR1 


; BRANCH ALWAYS TAKEN 


000316 












000317 


* CALCULATE DEFINITION 


TABLE INDEX 




000318 


* AND INIT SYS CALL 


PARM 


INDEX 




000319 


-k 
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000320 


MOVE010 LDA 


SCRNUM 


000321 




ASL 


A 


r\ n n o n o 

000322 




ASL 


A 


r\ n n o n o 

000323 




STA 


DFN. PTRX 


r\ n n o n /i 

000324 




LDA 


#0 


r\ n n o n c 

000325 




STA 


SXPAGE+DFN . PTR+ 1 


r\ n n o n ^ 

000326 




STA 


SCPTRX 


000327 


* 






000328 


* 


IF SCPTR(SCPTRX)ODFN.PTR(DFN.PTRX) THEN 


000329 


* 






000330 




TAY 




000331 




LDA 


(SCPTR) , Y 


r\ n n o o o 

000332 




LDY 


DFN. PTRX 


r\ n n o ^ o 

000333 




CMP 


(DFN. PTR) ,Y 


000334 




BEQ 


INITLOOPCT 


r\ n n o o c 

000335 


* 






r\ n n o o /~ 

000336 




LDA 


#>BADSCPCNT 


r\ n n o ^ ~7 

000337 


SYSERR1 JSR 


SYSERR 


r\ n n o o o 

000338 








r\ n n o o n 

000339 


* 


INIT LOOP CTR(PARM.CNT) 


TO # OF PARMS IN 


r\ n n o a r\ 

000340 


* 






r\ n r\ o /i t 

000341 


INITLOOPCT STA 


PARM.CNT 


000342 


* 






000343 


* 


ADVANCE PTRS 




000344 


* 






000345 


* 






000346 




INC 


SCPTRX 


000347 




INC 


DFN. PTRX 


000348 


* 






000349 


* 


MOVE REQ CODE TO SYS ZPAGE PARM LIST 


000350 


* 


AND ADVANCE SYS ZPAGE PTR (X=TPARMX) 


000351 


* 






000352 




LDA 


SCRNUM 


000353 




LDX 


TPARMX 


r\ n n o c a 

000354 




STA 


0,X 


000355 




I NX 




000356 








000357 




INIT NIBBLE FLAG TO "RIGHT" NIBBLE 


000358 


* 


ZERO STATE- "LEFT" NIBBLE 


000359 


* 






r\ n n o r~ n 

000360 




LDA 


#$FF 


000361 




STA 


RGHT.NIB 


000362 




REP 


60 


000363 


* 






000364 


* 


BEGIN PARAMETER PROCESSING LOOP 


000365 








000366 


PARMLOOP LDA 


RGHT.NIB 


r\ n n o r -i 

00036 / 




EOR 


#$FF 


r\ n r\ o r~ o 

000368 




STA 


RGHT.NIB 


000369 


* 






000370 


* 


IF "LEFT" NIBBLE 




OU 03 / I 








000372 




BNE 


ELSE. RNIB 


000373 








000374 




THEN FETCH SYS CALL PARM DFN 


000375 




AND # OF BYTES IN PARM 


WITHIN IT 


r\ n n o t r 

000376 


* 






000377 




LDY 


DFN. PTRX 


000378 




LDA 


(DFN. PTR) ,Y 


r\ r\ r\ o ^ n 

000379 




STA 


SCT . DFN 


r\ n n o o n 

000380 




AND 


#$30 


000381 




LSR 


A 


000382 




LSR 


A 


000383 




LSR 


A 


000384 




LSR 


A 


000385 




STA 


SCT . DCNT 


r\ n n o o r 

000386 




BPL 


VALUE 


r\ n n o o "~7 

00038 / 


* 






000388 


* 


ELSE FETCH SYS CALL PARM DFN 


r\ n n o n n 


* 


AND # OF BYTES IN PARM 


WITHIN IT 


000390 




FROM "RIGHT" NIBBLE OF 


DFN BYTE 


000391 


* 






000392 


ELSE . RNIB LDA 


SCT. DFN 


000393 




TAY 




000394 




AND 


#$03 


000395 




STA 


SCT . DCNT 


000396 




TYA 




000397 




ASL 


A 


000398 




ASL 


A 


000399 




ASL 


A 


000400 




ASL 


A 



; AND X BYTE 



; ERR, CALLER'S PARM COUNT INVALID 
; EXIT 



; COMPLEMENT NIBBLE FLAG 



; BRANCH ALWAYS 
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000401 


STA 




SCT . DFN 


000402 


INC 




DFN . PTRX 


000403 


REP 




60 


000404 








000405 


* PARAMETER PASSED 




VALUE 


000406 








000407 


REP 




60 


000408 


VALUE BIT 




SCT . DFN 


000409 


BVS 




REFERENCE 


000410 


BMI 




VAL . OUT 


000411 








000412 


* INPUT BY VALUE 






000413 








000414 


LDY 




SCPTRX 


000415 


VAL.IN LDA 




(SCPTR) , Y 


000416 


STA 




0, X 


000417 


I NY 






000418 


I NX 






000419 


DEC 




SCT . DCNT 


000420 


BPL 




VAL. IN 


000421 


STY 




SCPTRX 


000422 


JMP 




ENDLOOP1 


000423 








000424 


* OUTPUT BY VALUE 






000425 








000426 


VAL . OUT CLC 






000427 


LDA 




SCPTR 


000428 


ADC 




SCPTRX 


000429 


STA 




0/ X 


000430 


I NX 






000431 


LDA 




SCPTR+1 


000432 


ADC 




#0 


000433 


STA 




0, X 


000434 








000435 


CLC 






000436 


LDA 




SCPTRX 


000437 


ADC 




SCT . DCNT 


000438 


STA 




SCPTRX 


000439 








000440 


LDA 




S XPAGE + S C PTR+ 1 


000441 


STA 




SXPAGE , X 


000442 


JMP 




ENDLOOP2 


000443 


REP 




60 


000444 








000445 


* PARAMETER PASSED 




REFERENCE 


000446 








000447 


REP 




60 


000448 


REFERENCE BPL 




REF1 


000449 








000450 


* "LIST" PTR FOUND, 


CHK IF "LENGTH" PARM = 


000451 








000452 


LDY 




SCPTRX 


000453 


I NY 






000454 


I NY 






000455 


LDA 




(SCPTR) , Y 


000456 


BEQ 




ENDLOOPO 


000457 


-k 






000458 


REF1 LDY 




SCPTRX 


000459 


JSR 




POINTER 


000460 


BCS 




PARM. ERR 


000461 








000462 


* ADVANCE SYSTEM ZPAGE 


POINTER (X), CALLER' 


000463 


* DECREMENT PARM CTR AND CHECK IF LAST PARM 


000464 








000465 


ENDLOOPO INX 






000466 


INC 




SCPTRX 


000467 


ENDLOOP2 INX 






000468 


INC 




SCPTRX 


000469 


ENDLOOP1 DEC 




PARM . CNT 


000470 


BEQ 




PARM. EXIT 


000471 


BMI 




PARM. EXIT 


000472 


JMP 




PARMLOOP 


000473 








000474 


* END OF PARAMETER 


PROCESSING LOOP 


000475 


-k 






000476 


REP 




60 


000477 








000478 


PARM. EXIT CLC 






000479 


PARM. ERR RTS 






000480 


PAGE 




000481 


REP 




60 



ADVANCE SYS CALL DFN PTR 



MOVE BYTES TO ZPAGE 



BUILD PTR TO PARM ON ZPAGE 



ADVANCE INDEX TO NEXT PARM 



INCLUDE X BYTE 



; "LENGTH" PARM=0, SKIP "LIST" PARM 
; MOVE PTR TO ZPAGE 
; ERROR EXIT 



S PARM PTR. 



; SPECIAL FOR 'COLD START' 



NO ERRORS 

RETURN TO SYS CALL MANAGER 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 



SRC ADR 
DEST ADR 



SCPTR 
X REG 



(SCPTR) ,Y 
(X) 



UNCHANGED 



(SCPTR) , Y+l 



ERROR: 



A, Y REGS FLATTENED 



CARRY SET (SYSERR) 



* POINTER. RETRIEVES THE CALLER'S POINTER PARAMETER IN 

* (SCPTR), Y, PERFORMS ADDRESS COMPENSATION, IF NECESSARY 

* AND PLACES THE RESULTING POINTER AT X, X+l AND SXPAGE+1,X. 



REP 

EQU 
LDA 
PHA 
I NY 
LDA 
BEQ 

STA 
PLA 
STA 
LDY 
BEQ 

PLA 
TAY 
LDA 
STA 
LDA 
STA 
LDA 
TAY 



60 



(SCPTR) , Y 



(SCPTR) , Y 
INDIRECT 

1,X 

o,x 

#0 

PTR010 



CZPAGE, Y 

0, X 

CZPAGE+1,Y 

1, X 

CXPAGE+1, Y 



DIRECT POINTER 



INDIRECT POINTER 



PTR010 LDA 1,X 

* CHECK BOUNDS OF CALLER'S POINTER PARAMETER 



PTR.X8F 



* X BYTE = 
PTR.X808E 



* X BYTE = 
PTR.XO 



CPY 
BCC 
BEQ 
BCS 
CMP 
BCC 
CMP 
BCS 
BCC 

.8E 

CPY 
BCC 
CMP 
BEQ 
CMP 
BNE 
I NY 
LDA 
BNE 



CPY 
BNE 
CMP 
BCC 
CMP 
BCS 
CMP 
BCS 

PHA 

LDA 
AND 
BNE 



#58F 

PTR.X808E 

PTR.X8F 

PTR.ERR1 

#<ADR.LOW 

PTR.ERR 

#<ADR. HIGH 

PTR.ERR 

PTR.EXIT 



#$80 
PTR.XO 

#0 

PTR.ERR 

#$FF 

PATCH 

#$7F 

PTR.EXIT 



#0 

PTR.ERR1 

KADR.LOW 

PTR.ERR 

#<ADR. HIGH 

PTR.ERR 

#<ADR.MID 

PTR.EXIT 



B . SAVE 

#$0F 

PTR030 



; ERROR, INVALID X BYTE 



; $8N:FFXX — > $8N+1:7FXX 
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000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 



PTR030 



PTR.ERR 
PTR.ERR1 



ZZEND 
ZZLEN 



PLA 

LDY 
BNE 

ORA 
TAY 
PLA 
SEC 
SBC 
BNE 
DEY 
LDA 

CPY 
BCC 
CMP 
BNE 
CPY 
BEQ 
DEY 
LDA 

STA 
TYA 
STA 
CLC 
RTS 



LDA 
JSR 
LDA 
JSR 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



#$8F 

PTR.EXIT 



#$80 



#$20 
PATCH 

#$80 

#$80 

PTR.EXIT 
#1 

PTR.EXIT 

#$80 

PTR.ERR 

#$81 

1,X 

SXPAGE+1,X 



#>BADSCBNDS 
SYSERR 
#>BADXBYTE 
SYSERR 

ON 

ZZEND-ZZORG 
ZZLEN-LENSCMGR 
2, "SOSORG 



$B=0 : 2000 . . 9FFF — > $8F: 2000 . 9FFF 
$B<>0 : 2000 . . 9FFF — > $8B: 0000 . . 7FFF 

$8B:00XX — > $8B-1:80XX 

KLUDGE FOR BFM: $8N:01XX — > $8N-1:81XX 
ERROR, $80:01XX NOT ALLOWED 



FILE IS INCORRECT FOR SCMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SCMGR. SRC 

************************************************************************* 



End of File 



Lines: 607 Characters: 15630 
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FILE : "SOS. SOS. BLOAD. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. BLOAD 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 MON I 

000007 CALL-151 

000008 1600:0 

000009 160K1600.93FEM 

000010 3D0G 

000011 MON I 

000012 BLOAD SOSLDR. ABS, A$2000 

000013 BLOAD INIT . ABS, AS2AF8 

000014 BLOAD SYSGLOB . ABS, A52CF8 

000015 BLOAD BFM. INIT2 .ABS, A$2E00 

000016 BLOAD BFM. ABS, A$3200 

000017 BLOAD OPRMSG. ABS, A$5466 

000018 BLOAD IPL. ABS, A$55C0 

000019 BLOAD UMGR.ABS, A$5A8B 

000020 BLOAD DISK3 . ABS, A$5E99 

000021 BLOAD SYSERR. ABS, A$6404 

000022 BLOAD DEVMGR . ABS , AS 6 4 D9 

000023 BLOAD SCMGR . ABS, A$665E 

000024 BLOAD FMGR.ABS, A568F4 

000025 BLOAD CFMGR . ABS, A$6955 

000026 BLOAD BUFMGR. ABS, A$6B52 

000027 BLOAD MEMMGR. ABS, A$6E6E 

000028 NOMON I 
000029 

000030 ************************************************************ 

000031 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. BLOAD 

000032 ************************************************************************* 
000033 



End of File -- Lines: 33 Characters: 864 
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FILE: "SOS. SOS. LINK. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. LINK 

000004 * ASSEMBLER : APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 SOSLDR.OBJ 

000007 INIT.OBJ 

000008 SYSGLOB.OBJ 

000009 BFM. INIT2 . OBJ 

000010 BFM. OBJ 

000011 OPRMSG.OBJ 

000012 IPL.OBJ 

000013 UMGR.OBJ 

000014 DISK3.0BJ 

000015 SYSERR.OBJ 

000016 SCMGR.OBJ 

000017 FMGR.OBJ 

000018 CFMGR . OBJ 

000019 DEVMGR . OBJ 

000020 BUFMGR . OBJ 

000021 MEMMGR . OBJ 

000022 END 
000023 

000024 ************************************************************************* 

000025 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. LINK 

000026 ************************************************************************* 



End of File — Lines: 26 Characters: 607 
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FILE : "SOS . SOS .RENAME . TEXT' 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: SOS . RENAME 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 MON I 

000007 RENAME SOSLDR.OBJ.ABS, SOSLDR.ABS 

000008 RENAME INIT . OBJ . ABS, INIT . ABS 

000009 RENAME SYSGLOB.OBJ. ABS, SYSGLOB. ABS 

000010 RENAME OPRMSG.OBJ.ABS, OPRMSG.ABS 

000011 RENAME BFM.OBJ.ABS, BFM.ABS 

000012 RENAME BFM. INIT2 .OBJ. ABS, BFM. INIT2 .ABS 

000013 RENAME IPL . OB J. ABS, IPL . ABS 

000014 RENAME UMGR . OB J . ABS , UMGR . ABS 

000015 RENAME DISK3 . OBJ . ABS, DISK3 . ABS 

000016 RENAME SYSERR.OBJ.ABS, SYSERR.ABS 

000017 RENAME SCMGR. OBJ . ABS, SCMGR. ABS 

000018 RENAME FMGR . OB J . ABS , FMGR . ABS 

000019 RENAME CFMGR. OBJ . ABS, CFMGR. ABS 

000020 RENAME DEVMGR . OB J . ABS , DEVMGR . ABS 

000021 RENAME BUFMGR . OB J . ABS , BUFMGR . ABS 

000022 RENAME MEMMGR. OB J. ABS, MEMMGR. ABS 

000023 NOMON I 
000024 

000025 ************************************************************************* 

000026 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. RENAME 

000027 ************************************************************************* 



End of File — Lines: 27 Characters: 961 
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FILE : "SOS.SOSLDR.A.SRC.TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.A.SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



110 



$1E00 + + 

! SOSLDR ! <-ENTRY 
$1FFF + + 

BANK 
$2000 + + 



SOS MEMORY MAP 
(128K APPLE ///) 



SOSLDR 
& 

INIT MODULE 



$ 9FFF 



$A000 



FIGURE 1. SOS KERNEL FILE READ INTO $2 : 1E00 . . 9FFF BY SOS BOOT IN BLOCKS 0,1. 
SOS LOADER BEGINS EXECUTION AT THIS POINT. 



110 



REP 
PAGE 

REP 110 



$1FFF +- 



SOS MEMORY MAP 
(128K APPLE ///) 



$2000 



SOSLDR 
S 

INIT MODULE 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 



S9FFF 



* FIGURE 2 . 




INTERPRETER 
FILE 



SOS INTERPRETER FILE READ INTO BANKS AND 1 
USING EXTENDED ADDRESSING (X=$80) . 



110 



SOSLDR.B.SRC 



END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.A.SRC 



End of File 



Lines: 123 Characters: 4326 
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FILE : "SOS. SOSLDR.B. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.B. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

.PAGE 

******************************************************************************* 



51E00 + 

! SOSLDR 
S1FFF + 

BANK 
$2000 + 



SOSLDR 
S 

INIT MODULE 



SOS MEMORY MAP 
(128K APPLE ///) 



BANK 2 



FILE BUFFER 



DRIVER 
FILE 



59FFF 




INTERPRETER 
CODE 



FIGURE 3. SOS DRIVER FILE READ INTO BANKS AND 1 
USING EXTENDED ADDRESSING (X=$80) . 



******************************************************************************* 



$9FFF 



FIGURE 4. SOS LOADER FINISHED. JUMP TO 

FIRST BYTE OF INTERPRETER'S CODE. 



(SYSTEM DEVICE TABLE) 
DIB ADR BANK UNIT 
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000077 
000078 
000079 
000080 
000081 

000082 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE : SOSLDR.B.SRC 
000083 
000084 
000085 



********************************************* 



End of File 



Lines: 85 Characters: 2974 
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FILE : "SOS. SOSLDR.C. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.C. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



* SUBROUTINES: 
* 

* SOSLDR 

* SOSLDR1 



(1) 



MOVE 

INIT.KRNL 

WELCOME 

ADVANCE 

REVERSE 

DADVANCE 

DADD 
FLAGS 

NEXT . DIB 
GETMEM 

NEWDST 



100 



"MAIN PROGRAM" 

"PROCESSES KERNEL/INTERPRETER/DRIVER FILES" 
"MOVES SRC. P. .SRC.P+CNT-1 TO DST . P . . DST . P+CNT-1 " 
"CALLS KERNEL INITIALIZATION MODULES" 

"PRINTS WELCOME MESSAGE ("APPLE ///", VERSION, DATE/TIME, COPYRIGHT) 

"ADVANCES WRK.PTR TO NEXT INTERP/KERNEL MODULE. INITS SRC.P, DST.P, CNT FOR MOVE" 

"REVERSES TITLE/CODE/RELOC COUNTS TO ALLOW DRIVER FILE TO BE PROCESSED FM BACK TO FRONT " 

"ADVANCES WORK.P TO NEXT DRIVER MODULE. INITS SRC.P, CNT, REL.P FOR MOVE" 

"ADVANCES WORK.P TO NEXT DRIVER FIELD" 

"PROCESSES "INACTIVE" & "PAGE ALIGN" FLAGS IN DRIVER MODULE'S DIBS" 
"ADVANCES TO NEXT DIB IN DRIVER MODULE" 

"COMPUTES DESTINATION BASE ADDRESS FOR NEXT DRIVER MODULE" 

"COMPUTES DESTINATION BASE ADDRESS, ALIGNING ON PAGE BOUNDARY IF REQUESTED" 



BUILD. DSEG "COMPUTES # OF PAGES TO ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT" 

RELOC "RELOCATES DRIVER MODULE'S CODE FIELD USING RELOCATION FIELD" 

(1) LINK "LINKS FIRST DIB TO PREVIOUS DRIVER'S LAST "ACTIVE" DIB, AND ADDS SDT ENTRY" 

SET. DRIVES "INITIALIZES DIB LINKS IN KERNEL'S FLOPPY DRIVER" 

(1) ALLOC. DEV "ADDS A NEW ENTRY TO THE DEVICE MANAGER'S SYSTEM DEVICE TABLE (SDT)" 

ALLOC. SEG "ALLOCATES SEGMENTS FOR KERNEL, INTERPRETER AND SYSTEM WORK AREA" 

RSEG "CALLS MEMORY MANAGER TO ALLOCATE SEGMENTS FOR THE KERNEL AND INTERPRTER" 

ALLOC. DSEG "ALLOCATES SEGMENTS FOR DRIVER MODULES" 

ERROR "DISPLAYS ERROR MESSAGE, SOUNDS BELL AND LOOPS UNTIL CONTROL/RESET PRESSED" 



* (1) - INDICATES THAT THE ROUTINE PERFORMS BANK SWITCHING AND MUST ( ! ) BE OUTSIDE THE 32K RAM BANKS. 
REP 
PAGE 



REP 

SOS. KERNEL FILE FORMAT 



100 
100 



(8) LABEL 

= "SOS KRNL" 

(2) HEADER COUNT 
HEADER 

= # OF FLOPPY DRIVES 
= INTERPRETER PATHNAME 
= DRIVER PATHNAME 

(4) ADR & COUNT 
SOSLDR CODE 

(4) ADR & COUNT 
GLOBALS 



CONTAINED IN THIS LISTING 
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000077 




000078 




000079 




000080 




000081 




000082 




000083 




000084 




000085 




000086 




000087 




000088 




000089 




000090 




000091 




000092 




000093 




000094 




000095 




000096 




000097 




000098 




000099 




000100 




000101 




000102 




000103 




000104 




000105 




000106 




000107 




000108 




000109 




000110 




000111 




000112 




000113 




000114 




000115 




000116 




000117 




000118 




000119 




000120 




000121 




000122 




000123 




000124 




000125 




000126 




000127 




000128 




000129 




000130 




000131 




000132 




000133 




000134 




000135 




000136 




000137 




000138 




000139 




000140 




000141 




000142 




000143 




000144 




000145 




000146 




000147 




000148 




000149 




000150 




000151 




000152 


* 


000153 


* 


000154 




000155 




000156 




000157 


* 



(4) ADR S COUNT 
KERNEL CODE 

REP 100 

SOS.INTERP FILE FORMAT 

(8) LABEL 

= "SOS NTRP" 

(2) HEADER COUNT 

(4) ADR S COUNT 

INTERPRETER CODE 

REP 100 

SOS. DRIVER FILE FORMAT 

( 8 ) LABEL 

= "SOS DRVR" 

(2) HEADER COUNT 

= # OF FLOPPY DRIVES 
= CHARACTER SET TABLE 
= KEYBOARD TABLE 



(2) DM #N TITLE COUNT 

TITLE FIELD 

(2) DM #N CODE COUNT 

CODE FIELD 

(2) DM #N RELOC COUNT 

RELOC FIELD 



DRIVER MODULE #N 



RELOCATION FIELD FORMAT 

CONSISTS OF A LIST OF 2 BYTE POINTERS 
WHICH POINT TO THE LOW BYTE OF A TWO 
BYTE QUANTITY TO BE RELOCATED. 



SFFFF = THE END 

REP 

PAGE 

REP 



100 
100 



EXTERNAL DECLARATIONS 



REP 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 



100 

SYSBANK 

MEMSIZE 

SCRNMODE 

SOSVER 

SOSVERL 

INT. INIT 
EVQ. INIT 
DMGR. INIT 
MAX . DNUM 
SDT.SIZE 
SDT.DIBL 
SDT.DIBH 
SDT.ADRL 
SDT.ADRH 
S DT . BANK 
SDT.UNIT 
BLKD.SIZE 
BLKDLST 
CFMGR. INIT 
MMGR. INIT 
BMGR. INIT 
BFM. INIT 
BFM. INIT2 
CLK. INIT 

DIB1 
DIB2 
DIB3 
DIB4 



(IPL) INTERRUPT INIT 
(IPL) EVENT QUEUE INIT 
DEVICE MANAGER INIT 



CHAR FILE MANAGER INIT 
MEMORY MANAGER INIT 
BUFFER FILE MANAGER INIT 
BLOCK FILE MANAGER INIT 
BLOCK FILE MANAGER INIT2 
CLOCK SYSTEM CALL INIT 

; ON BOARD DISK DRIVER'S DIBS (1-4) 



* ENTRY I. BASE. P 



; USED BY BFM.INIT2 
PAGE 

REP 100 



(HARDWIRED! ) 



* FILE DATA DECLARATIONS 
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000158 


* 






000159 




REP 


100 


000160 


* KERNEL FILE 




000161 




REP 


100 


000162 


K . FILE 


ASC 


"SOS KRNL 


000163 


K.HDR.CNT 


DW 


LDR. ADR-K 


000164 


K. DRIVES 


DFB 


$1 


000165 


K . FLAGS 


DFB 


$0 


000166 


I . PATH 


DFB 


$E 


000167 




ASC 


" .Dl/SOS. 


000168 




DS 


$30-$F 


000169 


D . PATH 


DFB 


$E 


000170 




ASC 


" .Dl/SOS. 


000171 




DS 


$30-$F 


000172 


L DR. ADR 


DW 


$0 


000173 


LDR.CNT 


DW 


ZZEND-SOS 


000174 




REP 


100 


000175 


* INTERPRETER/ DRIVER 


FILES < — + 


000176 


* ERROR MESSAGES 




000177 


* WELCOME 


MESSAGES 


< — + 


000178 




REP 


100 


000179 




PAGE 




000180 




REP 


100 


000181 








000182 


* SOSLDR - 


DATA DECLARATIONS (1) 


000183 








000184 




REP 


100 


000185 


TRUE 


EQU 


$80 


000186 


FALSE 


EQU 


$0 


000187 








000188 


Z . REG 


EQU 


$FFD0 


000189 


E . REG 


EQU 


SFFDF 


000190 


B . REG 


EQU 


SFFEF 


000191 








000192 


CZPAGE 


EQU 


$1A00 


000193 


C SPACE 


EQU 


$1B00 


000194 


CXPAGE 


EQU 


$1600 


000195 


S Z PAGE 


EQU 


$1800 


000196 


SXPAGE 


EQU 


$1400 


000197 


S S PAGE 


EQU 


$0100 


000198 








000199 


ROM . ADR 


EQU 


$F1B9 


000200 


ROM . I D 


EQU 


$A0 


000201 




PAGE 




000202 




REP 


100 


000203 








000204 


* SOSLDR - 


DATA DECLARATIONS (2) 


000205 








000206 




REP 


100 


000207 


ZPAGE 


EQU 


$00 


000208 








000209 


K . BASE 


EQU 


ZPAGE+$0 


000210 


1 . BASt . P 


EQU 


ZPAGE+$2 


000211 


RDBUF . P 


EQU 


ZPAGE+$4 


000212 


SYSBUF. P 


EQU 


ZPAGE+$6 


000213 


TEMP . BANK 


EQU 


ZPAGE+$8 


000214 


TEMP.ADRH 


EQU 


ZPAGE+$9 


000215 


WORK . P 


EQU 


ZPAGE+$A 


000216 








000217 


REV. SAVE 


EQU 


ZPAGE+$C 


000218 








000219 


FIRST. ADIE 


EQU 


ZPAGE+$10 


000220 


PREV.ADIB. 


P EQU 


ZPAGE+$12 


000221 


DIB. P 


EQU 


ZPAGE+$14 


000222 


PG. ALIGN 


EQU 


ZPAGE+$16 


000223 


DIB. FLAGS 


EQU 


$14 


000224 


DIB. DOB 


EQU 


$20 


000225 








000226 


PREVBANK 


EQU 


ZPAGE+$18 


000227 


PREVDST 


EQU 


ZPAGE+$19 


000228 








r\ r\ n 1 1 n 

uuuzzy 


CODE . P 


EQU 


ZPAGE+$1C 


000230 


REL. P 


EQU 


ZPAGE+$1E 


000231 


REL . END 


EQU 


ZPAGE+$20 


000232 








000233 


SRC.P 


EQU 


ZPAGE+$22 


000234 


DST . P 


EQU 


ZPAGE+$24 


000235 


CNT 


EQU 


ZPAGE+$2 6 


000236 








000237 


DSTBANK 


EQU 


ZPAGE+$2A 


000238 


LINK. P 


EQU 


ZPAGE+$2C 



RESERVED FOR FUTURE USE 



DEFINED IN BACK OF THIS LISTING 



SOSLDR1 SUBROUTINE 



! <VARNAME> . P 



3 BYTE ZPAGE POINTER ! 



REVERSE SUBROUTINE 
FLAGS SUBROUTINE 



; GETMEM SUBROUTINE 



; RELOCATION SUBROUTINE 



MOVE SUBROUTINE 



LINK SUBROUTINE 
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000239 * 

000240 DIB . ENTRY EQU 

000241 DIB. UNIT EQU 

000242 DIB.DTYPE EQU 

000243 * 

000244 ETEMP EQU 

000245 * 

000246 WTEMP EQU 
000247 

000248 ************************************************************************* 

000249 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.C.SRC 

000250 ************************************************************************* 
000251 

000252 

End of File — Lines: 252 Characters: 7483 



2 ; ALLOC. DEV SUBROUTINE 

4+16+2 

4+16+3 

ZPAGE+$2E ; ERROR SUBROUTINE 

ZPAGE+$2F ; WELCOME SUBROUTINE 
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FILE : "SOS. SOSLDR.D. SRC. TEXT" 



000001 


************************************************************************* 




000002 


* APPLE 


/// 


SO£ 


1.3 SOURCE 


PPiPiT? FT T T? • 
L.UJJ.E- r _L _l_iJr_i . 


SOSLDR.D. SRC 




000003 










*********** 








000004 


* ASSEMBLER : 


APPLE ] [ 6502 


a c QT7MP.T T?P 

rt O 111 1X1 J3 J_i III r\ 


from 


APPLE COMPUTER TOOLKIT 




000005 


















000006 








PAGE 










000007 








REP 


1 nn 

1UU 








000008 


* 
















000009 


* SOS LOADER 














000010 


















000011 


(MAIN 


PROGRAM) 










000012 








REP 


100 








000013 


SOSLDR 






EQU 






; 


+ 


000014 








LDA 


ff u 




; ZERO SOS /USER X, Z AND STACK PAGES 


! SEE 


000015 








TAX 








+ 


000016 


SLDR010 






STA 


p 7 parr y 








000017 








STA 


PYPAPT? Y 








000018 








STA 


O Jr Atulli , A 








000019 








STA 


Z_ Jr rtk_i__i , A 








000020 








STA 


QYP_rF Y 








000021 








STA 


O O JTrtljfli , A 








000022 








DEX 










000023 








BNE 


qt np m n 








000024 












; 


SETUP SOS CALL ENVIRONMENT (WRITE PROTECT— OFF) 




000025 








LDA 


ff 9-3 U 




; E:=( 0.0.1.1:0.0.0.0 ) 




000026 








STA 


E.REG 




; ( l.I.S.R:W.P.R.R ) 




000027 


















000028 








LDX 






; CONSOLE 1.0 MODIFIES STACK DURING D.INIT 


CALL 


000029 








TXS 










000030 








LDA 


&<rC 7 P APT? 
■ff Zj JTrtliTJli 




; ZREG : =CALLER 1 S Z PAGE 




000031 








STA 


Z .REG 


























000032 












; 


H h 




000033 








JSR 


c r\ c t rip 1 




; ! PROCESS KRNL/INTERP/DRVR FILES ! 






















000034 












; 


-1 h 




000035 








LDA 


E REG 








000036 








AND 


it <z 1 n 




; SETUP SOS CALL ENVIRONMENT (WRITE PROTECI 


=ON) 


000037 








ORA 


# C; 9 p 




; E:=( 0.0. 1 . X : 1 . 0.0.0 ) 




000038 








STA 


E.REG 




; ( l.I.S.R:W.P.R.R ) 




000039 


















000040 








LDX 


# C T?T? 

ff $t J_ 




; STACK. REG:-$FF 




000041 








TXS 










000042 








LDA 


&<T 7 P APT? 
ff ^L. —j jrrtl_T.r_i 




; ZREG : -CALLER 1 S Z PAGE 




000043 








STA 


Z .REG 








000044 














_j 




000045 








LDA 


O I OortrJ_\ 




; BREG : =SYSBANK 


! SEE 


000046 








STA 








+ 


000047 








JMP 


IT Rfl QT? P \ 
\ ± . ortoili . Jr ) 




; SOS LOAD COMPLETE - JMP TO INTERPRETER 




000048 


















000049 


*THE END 
















000050 








REP 


100 








000051 








PAGE 










000052 








REP 


100 








000053 


















000054 


* MOVE ( 


IN: 




SRC.P 










000055 


* 


IN: 




DST.P 










000056 


* 


IN: 




A="BANK" 










000057 


* 


IN: 




CNT ) 










000058 


* 
















000059 




LOCAL : 


END 










000060 


* (MOVES 


SRC 


.P. 


. SRC . P+CNT- 


1 TPi HQT P 
-L 1U JJD 1 . Jr . 


. DST . 


P+CNT-1) "CNT PARM IS DESTROYED" 




000061 








REP 


1 nn 

1UU 








000062 


MOVE 






EQU 


* 








000063 








TAX 










000064 








LDA 


B.REG 




; SAVE BANK REGISTER 




000065 








PHA 










000066 








STX 


B.REG 




; BREG : =A 




000067 








LDA 


CNT+1 




; IF CNT <> 




000068 








ORA 


CNT 




THEN 




000069 








BEQ 


MOVE. EXIT 








000070 








LDA 


CNT 




CNT:=CNT-1 




000071 








BNE 


MOVE010 








000072 








DEC 


CNT + 1 








000073 


MOVE010 






DEC 


CNT 








000074 








CLC 






SRC . P : =SRC . P+PAGE . CNT 




000075 








LDA 


SRC. P+l 








000076 








ADC 


CNT + 1 
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000077 




STA 


SRC . P+l 




000078 




LDA 


DST . P+l 


DST . P : -DST . P+PAGE . CNT 


000079 




ADC 


CNT+1 




000080 




STA 


DST . P+l 




000081 




INC 


CNT + 1 


PAGE . CNT : =PAGE . CNT+1 


000082 




LDY 


CNT 


Y : =BYTE . CNT 


000083 




BEQ 


MOVE020 


IF Y=0 THEN M2 


000084 










000085 


MOVE . PAGE 


LDA 


(SRC . P) , Y 


Ml : DO 


000086 




STA 


(DST . P) , Y 


( DST . P ) , Y : - ( SRC . P ) , Y 


000087 




DEY 




Y : =Y-1 


000088 




BNE 


MOVE . PAGE 


UNTIL Y=0 


000089 


MOVE020 


LDA 


(SRC . P) , Y 


M2 : (DST . P) , Y:= (SRC . P) , Y 


000090 




STA 


(DST . P) , Y 




000091 




DEY 




Y : =Y-1 


000092 




DEC 


SRC . P+l 


SRC . P : -SRC . P-256 


000093 




DEC 


DST . P+l 


DST . P : =DST .P-256 


000094 




DEC 


CNT+1 


PAGE . CNT : -PAGE . CNT- 1 


000095 




BNE 


MOVE . PAGE 


IF PAGE . CNT <> THEN Ml 


000096 










000097 




INC 


SRC . P+l 


RESTORE SRC.P 


000098 




INC 


DST . P+l 


" DST.P 


000099 










000100 


MOVE . EXIT 


PLA 




RESTORE BANK REGISTER 


000101 




STA 


B . REG 




000102 




RTS 






000103 




PAGE 






000104 




REP 


100 




000105 










000106 


* LINK ( IN: 


DST. P 






000107 


* IN : 


DSTBANK 






000108 


* IN : 


PREVBANK 






000109 


* IN : 


FIRST. ADIB 






000110 


* I/O: 


SDT.TBL 






000111 


* I/O: 


BLKDLST 






000112 


* OUT : 


LINKED DRIVER MODULE ) 




000113 










000114 


* OWN : 


LINK.P 






000115 


* (LINKS FIRST 


DIB TO PREVIOUS DRIVER'S LAST "ACTIVE" DIB, AND ADDS SDT ENTRY) 


000116 




REP 


100 




000117 


LINK 


EQU 






000118 




CLC 




FIRST . ADIB : =0 : DST . P+FIRST .ADIB 


000119 




LDA 


DST.P 




000120 




ADC 


FIRST. ADIB 




000121 




STA 


FIRST. ADIB 




000122 




LDA 


DST. P+l 




000123 




ADC 


FIRST. ADIB+1 




000124 




STA 


FIRST. ADIB+1 




000125 




LDA 


#0 




000126 




STA 


CXPAGE+FIRST. ADIB+1 




000127 




LDA 


PREVBANK 


BREG : =PREVBANK 


000128 




STA 


B.REG 




000129 




LDY 


#0 


(LINK.P) :=FIRST.ADIB 


000130 




LDA 


FIRST. ADIB 




000131 




STA 


(LINK.P) ,Y 




000132 




I NY 






000133 




LDA 


FIRST. ADIB+1 




000134 




STA 


(LINK.P) ,Y 




000135 




LDA 


DSTBANK 


BREG : =DSTBANK 


000136 




STA 


B.REG 




000137 




LDA 


FIRST. ADIB 


LINK . P : =FIRST .ADIB 


000138 




STA 


LINK.P 




000139 




LDA 


FIRST. ADIB+1 




000140 




STA 


LINK. P+l 




000141 


WALKLINKS 


JSR 


ALLOC . DEV 


ALLOC. DEV (LINK.P BREG. IN, SDT.TBL BLKDLST. 10) 


000142 


LINK010 


LDY 


#0 


WHILE (LINK.P) <> AND (LINK.P) <> LINK.P 


000143 




LDA 


(LINK.P) ,Y 




000144 




I NY 






000145 




ORA 


(LINK.P) ,Y 




000146 




BEQ 


LINK100 




000147 




LDA 


(LINK.P) ,Y 




000148 




CMP 


LINK. P+l 




000149 




BNE 


LINK030 




000150 




DEY 






000151 




LDA 


(LINK.P) ,Y 




000152 




CMP 


LINK.P 




000153 




BEQ 


LINK100 




000154 


LINK030 


LDY 


#0 


DO LINK.P:=(LINK.P) 


000155 




LDA 


(LINK.P) ,Y 




000156 




TAX 






000157 




I NY 
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000158 




LDA 




(LINK. P) , Y 






000159 




STX 




LINK . P 






000160 




STA 




LINK . P+l 






000161 




JSR 




ALLOC . DEV 




" ALLOC . DEV (LINK. P BREG.IN, SDT.TBL BLKDLST. I 


000162 




JMP 




LINK010 






000163 














000164 


LINK100 


LDY 




#0 




(LINK . P) : =0 


000165 




TYA 










000166 




STA 




(LINK. P) , Y 






000167 




I NY 










000168 




STA 




(LINK.P) ,Y 






000169 




DEY 






• 


BREG : =0 


000170 




STY 




B.REG 






000171 




RTS 










000172 














000173 














000174 














000175 














000176 


* LINK.INIT ( 


IN : 


A= 


# DRIVES 






000177 




IN: 


DIB1 . . 4 






000178 




I/O: 


SDT.TBL 






000179 




I/O: 


BLKDLST ) 






000180 














000181 


LINK . INIT 


EQU 










000182 




JSR 




SET . DRIVES 


• 


SET . DRIVES (A-#DRIVES . IN, DIB1 . . 4 . IN) 


000183 




LDA 




#0 






000184 




STA 




MAX . DNUM 


• 


MAXDNUM:=0 


000185 




STA 




BLKDLST 


• 


BLKDLST : =0 


000186 




STA 




CXPAGE+LINK 


P+l ; 


LINK. P:-0 :DIB1 


000187 




LDA 




#>DIB1 






000188 




STA 




LINK.P 






000189 




LDA 




#<DIB1 






000190 




STA 




LINK. P+l 






000191 




JMP 




WALKLINKS 






000192 




PAGE 








000193 




REP 




100 






000194 














000195 


* ALLOC . DEV ( 


IN: 


LINK.P 






000196 




IN: 


3. 


REG 






000197 




I/O: 


SDT.TBL 




(SYSTEM DEVICE TABLE) 


000198 








IN: SDT.SIZE 


= CONSTANT 




000199 








IN: DIB. ENTRY 


= CONSTANT 


DEV DIB ADR BANK UNIT 


000200 








IN: DIB . UNIT 


= CONSTANT 




000201 








IN: DIB . DTYPE 


= CONSTANT 


1 ! ! ! ! 


000202 








I/O: MAX. DNUM 




2 ! ! ! ! 


000203 








OUT: SDT . BANK 






000204 








OUT: SDT. DIB 






000205 








OUT: SDT. ADR 






000206 








OUT: SDT . UNIT 




MAX . DNUM 


000207 




I/O: 


BLKDLST 






000208 








IN: BLKD.SIZE 


= CONSTANT 




000209 


* (ADDS A NEW 


ENTRY 


TO 


THE DEVICE MANAGER'S SYSTEM DEVICE TABLE (SDT)) 


000210 




REP 




100 






000211 


ALLOC . DEV 


EQU 










000212 




INC 




MAX . DNUM 




MAX . DNUM : =MAX . DNUM+1 


000213 




LDX 




MAX . DNUM 




IF MAX . DNUM >= SDT.SIZE 


000214 




CPX 




#>SDT.SIZE 




THEN 


000215 




BCC 




ADEV010 






000216 




LDX 




#ERR8X 




ERRORC'TOO MANY DEVICES") 


000217 




LDY 




#ERR8L 






000218 




JSR 




ERROR 






000219 


ADEV010 


LDA 




B.REG 




SDT. BANK, X:=BREG 


000220 




STA 




SDT. BANK, X 






000221 




CLC 








SDT . DIB, X : =LINK . P+4 


000222 




LDA 




LINK.P 






000223 




ADC 




#4 






000224 




STA 




SDT.DIBL,X 






000225 




LDA 




LINK. P+l 






000226 




ADC 




#0 






000227 




STA 




SDT.DIBH,X 






000228 




SEC 








SDT. ADR, X:= (LINK. P) , DIB . ENTRY-1 


r\ r\ n 1 1 n 

uuuzzy 




LDY 




#DIB. ENTRY 






000230 




LDA 




(LINK.P) ,Y 






000231 




SBC 




#1 






000232 




STA 




SDT . ADRL, X 






000233 




I NY 










000234 




LDA 




(LINK.P) ,Y 






000235 




SBC 




#0 






000236 




STA 




SDT . ADRH, X 






000237 




LDY 




#DIB . UNIT 




SDT. UNIT, X:=(LINK.P) , DIB. UNIT 


000238 




LDA 




(LINK.P) ,Y 
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000239 


STA 


SDT . UNIT, X 






000240 


LDY 


#DIB . DTYPE 




IF (LINK . P) , DIB . DTYPE = "BLOCK DEVICE" 


000241 


LDA 


(LINK. P) , Y 






000242 


BPL 


ADEV. EXIT 






000243 


TXA 






THEN 


000244 


INC 


BLKDLST 




BLKDLST : =BLKDLST+1 


000245 


LDX 


BLKDLST 




IF BLKDLST >= BLKD.SIZE 


000246 


CPX 


#>BLKD .SIZE 




THEN 


000247 


BCC 


ADEV020 






000248 


LDX 


#ERR9X 




ERROR ("TOO MANY BLOCK DEVICES 


000249 


LDY 


#ERR9L 






000250 


JSR 


ERROR 






000251 


ADEV020 STA 


BLKDLST, X 




BLKDLST, X : =MAX . DNUM 


000252 


ADEV . EXIT RTS 






RETURN 


000253 


PAGE 








000254 


REP 


100 






000255 










000256 


* SOSLDR1 () 








000257 










000258 


* (PROCESSES KERNEL /INTERPRETER/ DRIVER 


FILES) 




000259 


REP 


100 






000260 


SOSLDR1 EQU 








000261 


LDX 


#$1F 




COPY ROM'S DISK CORE ROUTINE ZPAGE VARS T 


000262 


LDR010 LDA 


$380, X 






0002 63 


STA 


SZPAGE, X 






0002 64 


DEX 








000265 


BPL 


LDR010 






000266 


REP 


100 






000267 


* PROCESS KERNEL FILE 








000268 


REP 


100 






000269 










000270 


* MOVE AND INITIALIZE 


SOS GLOBALS 






000271 










000272 


LDA 


#>LDR. ADR 




WORK . P : =0 : LDR . ADR 


000273 


STA 


WORK . P 






000274 


LDA 


#<LDR. ADR 






000275 


STA 


WORK . P+l 






000276 


JSR 


ADVANCE 




ADVANCE (WORK. P. IO, SRC . P DST . P CNT. OUT) 


000277 










000278 


LDA 


B . REG 




MOVE (SRC. P DST . P A=BREG CNT. IN) 


000279 


JSR 


MOVE 






000280 










000281 


LDA 


B.REG 




SYSBANK : =BREG 


000282 


AND 


#$0F 






000283 


STA 


SYSBANK 






000284 


ASL 


A 




MEMSIZ : =SYSBANK*2+4 "16K CHUNKS" 


000285 


CLC 








000286 


ADC 


#4 






000287 


STA 


MEMSIZE 




AND, MEMSIZE (SIZE IN 1 6K BYTE "CHUNKS") 


000288 










000289 


* MOVE KERNAL CODE 








000290 










000291 


JSR 


ADVANCE 




ADVANCE (WORK. P. IO, SRC . P DST . P CNT. OUT) 


000292 


-k 








000293 


LDA 


DST. P 




K.BASE:=DST.P 


000294 


STA 


K . BASE 






000295 


LDA 


DST. P+l 






000296 


STA 


K.BASE+1 






000297 


LDA 


B.REG 




MOVE (SRC. P DST.P A=BREG CNT. IN) 


000298 


JSR 


MOVE 






000299 










000300 


* MOVE LOADER TO BANK 


AND SWITCH FROM 


SYSTEM BANK TO BANK 


000301 


-k 








000302 


LDA 


#>$2000 




MOVE (SRC. P=0: 2000 DST . P=8F : 2000 A=BREG CN 


000303 


STA 


SRC. P 






000304 


STA 


DST. P 






000305 


LDA 


#<$2000 






000306 


STA 


SRC. P+l 






000307 


STA 


DST. P+l 






000308 


LDA 


#$8F 






000309 


STA 


CXPAGE+DST.P+1 




000310 


LDA 


#>LDREND-$20 


00 




000311 


STA 


CNT 






000312 


LDA 


#<LDREND-$20 


00 




000313 


STA 


CNT + 1 






000314 


LDA 


B.REG 






000315 


JSR 


MOVE 






000316 


LDA 


#0 




BREG : =0 


000317 


STA 


B.REG 






000318 










000319 


* INITIALIZE SDT TABLE 


, KERNEL AND PRINT WELCOME 


MESSAGE 
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000320 












000321 






LDA 


K . DRIVES 


LINK. INIT (A=K. DRIVES DIB1 . . 4 . IN, SDT . TBL BLKDLST .10) 


r\ n n o n o 

000322 






JSR 


LINK . INIT 




r\ n n o n o 

000323 






JSR 


INIT . KRNL 


INIT . KRNL ( ) 


r\ n n o n /i 

000324 






JSR 


WELCOME 


WELCOME ( ) 


r\ n n o n c 

000325 












r\ n n o n /~ 

000326 






LDA 


E . REG 


ENABLE ROM BANK 


000327 






ORA 


#$03 




000328 






STA 


E . REG 




000329 






LDA 


ROM . ADR 


IF MONITOR ROM <> NEW 


000330 






CMP 


#ROM. ID 


THEN 


000331 






BEQ 


LDR020 




r\ n r\ o o o 

000332 






LDX 


#ERR7X 


ERROR ("ROM ERROR: PLEASE NOTIFY YOUR DEALER") 


000333 






LDY 


#ERR7L 




r\ n n o ^ /i 

000334 






JSR 


ERROR 




r\ n n o o c 

000335 


LDR020 




LDA 


E . REG 


DISABLE ROM BANK 


r\ n n o ^ r 

000336 






AND 


#$F6 




r\ r\ r\ o ^ ~7 

000337 






STA 


E . REG 




000338 






REP 


100 




000339 


* PROCESS 


INTERPRETER 


FILE 




000340 






REP 


100 




0U0341 












000342 


* OPEN 


SOS 


INTERPRETER 


FILE (DEFAULT= ' SOS . INTERP 


) 


000343 












000344 






LDY 


I . PATH 


OPEN (PATHNAME : =1 . PATH 


000345 


LDR030 




LDA 


I . PATH , Y 


REFNUM=OPEN . REF 


000346 






STA 


PATH, Y 


SYSBUF . P : =80 : LDREND-2000 ) 


000347 






DEY 






000348 






BPL 


LDR030 




000349 












000350 






LDA 


#>LDREND-$2000 




000351 






STA 


SYSBUF . P 




000352 






LDA 


#<LDREND-$2000 




000353 






STA 


SYSBUF . P+l 




000354 






LDA 


#$80 




000355 






STA 


CXPAGE+SYSBUF. P+l 




000356 












000357 












000358 






BRK 






000359 






DFB 


OPEN 




000360 






DW 


OPEN . PARMS 




r\ n n o r~ t 

000361 






BEQ 


LDR040 




n n A n ^ o 

000362 






LDX 


#ERR1X 


ERROR (" INTERPRETER FILE NOT FOUND") 


000363 






LDY 


#ERR1L 




000364 






JSR 


ERROR 




000365 


LDR040 




LDA 


OPEN . REF 




000366 






STA 


READ . REF 




000367 






STA 


CLOSE. REF 




r\ n n o r~ o 

000368 












000369 


* READ 


IK- 


ENTIRE INTERPRETER FILE 




000370 












000371 






LDA 


#$80 


READ (REFNUM=READ . REF 


000372 






STA 


CXPAGE+RDBUF. P+l 


RDBUF . P : =80 : FILE 


000373 






LDA 


#>FILE 


BYTES=$FFFF-FILE+1 


000374 






STA 


RDBUF . P 


BYTESRD=I . BYTESRD ) 


000375 






LDA 


#<FILE 




000376 






STA 


RDBUF. P+l 




000377 


* 










000378 






BRK 






r\ n n o i n 

000379 






DFB 


READ 




r\ n n o o n 

000380 






DW 


READ . PARMS 




000381 






BEQ 


LDR050 




000382 






LDX 


#ERR0X 


ERROR ("I/O ERROR" ) 


000383 






LDY 


#ERR0L 




000384 






JSR 


ERROR 




000385 


-k 








H h 


r\ r\ r\ 1 a r 

000386 


* CLOSE 


INTERPRETER FILE AND CHECK LABEL 


! SEE FIGURE 2 . ! 


000387 


-k 








H h 


000388 


LDR050 




BRK 




CLOSE (REFNUM=CLOSE .REF) 


000389 






DFB 


CLOSE 




000390 






DW 


CLOSE. PARMS 




000391 






LDY 


#7 


CHECK LABEL 


000392 


LDR051 




LDA 


(RDBUF. P) , Y 




000393 






CMP 


I .LABEL, Y 




000394 






BNE 


LDR052 




000395 






DEY 






000396 






BPL 


LDR051 




000397 






BMI 


LDR053 




000398 


LDR052 




LDX 


#ERR2X 


ERROR ("INVALID INTERPRETER FILE") 


000399 






LDY 


#ERR2L 




000400 






JSR 


ERROR 
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000401 










000402 


* MOVE INTERPRETER CODE 








000403 










000404 


LDR053 LDA 


#>I . HDR. CNT- 


2 


WORK. P : =80 : 1 . HDR. CNT-2 


000405 


STA 


WORK . P 






000406 


LDA 


#<I . HDR. CNT- 


2 




000407 


STA 


WORK . P+l 






000408 


LDA 


#$80 






000409 


STA 


CXPAGE+WORK. 


P+l 




000410 










000411 


JSR 


ADVANCE 




ADVANCE (WORK. P . IO, SRC . P DST.P CNT. 


000412 










000413 


LDA 


DST.P 




I . BASE . P : =0 : DST . P 


000414 


STA 


I . BASE . P 






000415 


LDA 


DST.P+1 






000416 


STA 


I. BASE. P+l 






000417 


LDA 


#0 






000418 


STA 


CXPAGE+I. BASE. P+l 




000419 










000420 


CLC 






IF DST.P+CNT > K.BASE THEN ERROR 


000421 


LDA 


CNT 






000422 


ADC 


DST.P 






000423 


TAX 








000424 


LDA 


CNT+1 






000425 


ADC 


DST.P+1 






000426 


CPX 


K . BASE 






000427 


SBC 


K.BASE+1 






000428 


BEQ 


LDR070 






000429 


BCC 


LDR070 






000430 


LDX 


#ERR3X 




ERROR ( " INCOMPATIBLE INTERPRETER" ) 


000431 


LDY 


#ERR3L 






000432 


JSR 


ERROR 






000433 










000434 


LDR070 LDA 


SYSBANK 




MOVE ( SRC . P=RDBUF . P DST.P A=SYSBANK 


000435 


JSR 


MOVE 






000436 


REP 


100 






000437 


* PROCESS DRIVER FILE 








000438 


REP 


100 






000439 










000440 


* OPEN SOS DRIVER FILE 


( DEFAULT^ ' SOS . DRIVER ' ) 




000441 










000442 


LDY 


D . PATH 




OPEN ( PATHNAME : =D . PATH 


000443 


LDR080 LDA 


D . PATH , Y 




REFNUM=OPEN . REF 


000444 


STA 


PATH, Y 




SYSBUF . P : =80 : LDREND-2000 ) 


000445 


DEY 








000446 


BPL 


LDR080 






000447 










000448 


BRK 








000449 


DFB 


OPEN 






000450 


DW 


OPEN . PARMS 






000451 


BEQ 


LDR090 






000452 


LDX 


#ERR4X 




ERROR { "DRIVER FILE NOT FOUND") 


000453 


LDY 


#ERR4L 






000454 


JSR 


ERROR 






000455 


LDR090 LDA 


OPEN . REF 






000456 


STA 


READ . REF 






000457 


STA 


CLOSE. REF 






000458 










000459 


* READ IN ENTIRE DRIVER 


FILE INTO BANK 







000460 










000461 


BRK 






READ (REFNUM=READ . REF 


000462 


DFB 


READ 




RDBUF. P: =80: FILE 


000463 


DW 


READ . PARMS 




BYTES=$FFFF-FILE+1 


000464 






BYTESRD-D . BYTESRD ) 


000465 


BEQ 


LDR100 






000466 


LDX 


IERR0X 




ERROR ("I/O ERROR") 


00046 7 


LDY 


#ERR0L 






000468 


JSR 


ERROR 






000469 








+- 


000470 


* CLOSE THE DRIVER FILE 


AND CHECK LABEL 




000471 








+- 


000472 


LDR100 BRK 






CLOSE (REFNUM=CLOSE . REF) 


000473 


DFB 


CLOSE 






000474 


DW 


CLOSE. PARMS 






000475 


LDY 


#$7 




CHECK LABEL 


000476 


LDR101 LDA 


(RDBUF. P) , Y 






000477 


CMP 


D. LABEL, Y 






000478 


BNE 


LDR102 






000479 


DEY 








000480 


BPL 


LDR101 






000481 


BMI 


LDR103 







SEE FIGURE 3. ! 
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000482 


LDR102 LDX 


#ERR5X 


000483 


LDY 


#ERR5L 


000484 


JSR 


ERROR 


000485 






000486 


* MOVE CHARACTER SET TABLE 




000487 






000488 


LDR103 LDA 


#>D . CHRSET 


000489 


STA 


SRC . P 


0004 90 


LDA 


#<D . CHRSET 


0004 91 


STA 


SRC . P+l 


000492 


LDA 


#>$C00 


0004 93 


STA 


DST . P 


000494 


LDA 


#<$coo 


000495 


STA 


DST . P+l 


n n n a c\ r 

0004 96 


LDA 


#>$40u 


0004 97 


STA 


CNT 


0004 98 


LDA 


#<$400 


0004 99 


STA 


CNT+1 


000500 


LDA 


#0 


000501 


JSR 


MOVE 


n n n it n o 

000502 






n n n it n o 

00050 3 


* MOVE KEYBOARD TABLE 




000504 






000505 


LDA 


#>D .KYBD 


000506 


STA 


SRC . P 


000507 


LDA 


#<D .KYBD 


000508 


STA 


SRC . P+l 


000509 


LDA 


1L ^ f *\ ~7 n n 

#>$17U0 


000510 


STA 


DST . P 


000511 


LDA 


#<$1700 


n n n c i o 

000512 


STA 


DST . P+l 


n n n c i o 

000513 


LDA 


#>S10u 


000514 


STA 


CNT 


000515 


LDA 


#<$1U0 


000516 


STA 


CNT+1 


000517 


LDA 


#0 


000518 


JSR 


MOVE 


000519 






000520 


* RE- INITIALIZE SDT TABLE 




000521 






n n n it o o 

000522 


LDY 


#>D . DRIVES 


000523 


LDA 


(RDBUF . P) , 


000524 


JSR 


LINK . INIT 


000525 






000526 


LDA 


#0 


000527 


STA 


CXPAGE+DST 


000528 


STA 


DST . P 


nnnon 

000529 


LDA 


I . BASE . P+l 


000530 


STA 


DST. P+l 


000531 


CMP 


#$A0 


n n n it o o 

000532 


BCC 


LDR105 


nnnoo 

000533 


LDA 


#$A0 


000534 


STA 


DST. P+l 


000535 


LDR105 LDA 


SYSBANK 


000536 


STA 


DSTBANK 


000537 


JSR 


REVERSE 


n n n c o n 

000538 


-k 




n n n c on 

000539 


* RELOCATE AND MOVE DRIVERS 


000540 






n n n c /i i 

000541 


NEXT DRIVER JSR 


DADVANCE 


000542 


BCS 


LDR140 


000543 


JSR 


FLAGS 


000544 


BVS 


NEXTDRIVER 


000545 


JSR 


GETMEM 


000546 


JSR 


RELOC 


000547 


-k 




000548 


LDA 


DSTBANK 


000549 


BMI 


LDR120 


n n n n c n 

000550 


LDA 


CXPAGE+SRC 


000551 


AND 


#$7F 


n n n it c o 

000552 


STA 


TEMP . BANK 


000553 


LDA 


SRC. P+l 


000554 


BPL 


LDR110 


000555 


INC 


TEMP . BANK 


000556 


LDR110 AND 


#$7F 


000557 


CLC 




000558 


ADC 


#<$2000 


000559 


STA 


TEMP.ADRH 


000560 


LDA 


DST.P 


000561 


CMP 


SRC.P 


000562 


LDA 


DST. P+l 



ERROR ("INVALID DRIVER FILE") 



MOVE (SRC. P=D. CHRSET DST.P=$CO0 A=0 CNT=$400) 



; MOVE (SRC. P=D. KYBD DST.P=$1700 A=0 CNT=$100.IN) 



LINK. INIT (A=D. DRIVES DIB1..4.IN, SDT.TBL BLKDLST . IO) 



; DST. P:=0:I. BASE. P/256*256 



IF DST.P>=$A000 THEN DST.P:=$A000 



DSTBANK :=SYSBANK 

REVERSE ( D . HDR . CNT . IN , WORK . P . OUT ) 



"NO DRIVERS LEFT" :=DADVANCE (WORK. P. IO SRC.P CNT REL.P.OUT) 
"INACTIVE" :=FLAGS (SRC.P. IN, PG. ALIGN FIRST. ADIB. OUT) 



GETMEM (PG. ALIGN CNT. IN, DST.P DSTBANK DSEGLIST.IO, PREVBANK . OUT ) 
RELOC(SRC.P REL.P DST. P. IN) 



IF DSTBANK < OR DST.P < SRC.P THEN ERROR 
(CONVERT SRC.P TO BANK SWITCHED ADDRESS) 



(NOW COMPARE) 
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000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
000611 
000612 
000613 
000614 
000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000628 
000629 
000630 
000631 
000632 
000633 
000634 
000635 



LDR120 



SBC 
LDA 
SBC 
BCS 
LDX 
LDY 
JSR 



LDA 
JSR 
JSR 
JMP 
REP 

* SETUP USER ENVIRONMENT 
REP 



LDR130 



TEMP.ADRH 

DSTBANK 

TEMP . BANK 

LDR130 

#ERR6X 

#ERR6L 

ERROR 

DSTBANK 

MOVE 

LINK 

NEXTDRIVER 
100 

100 



ERROR ("DRIVER FILE TOO LARGE" 



MOVE (SRC. P DST.P A=DSTBANK CNT.IN) 

LINK(DST.P DSTBANK PREVBANK FIRST .ADIB . IN, SDT.TBL BLKDLST.IO) 



* RE-INITIALIZE KERNEL /DRIVERS, ALLOCATE SYSTEM SEGMENTS 



LDR140 



JSR 
JSR 
JSR 



INIT.KRNL 
ALLOC. SEG 
ALLOC . DSEG 



* SET PREFIX TO THE BOOT VOLUME 



LDA 
STA 
BRK 
DFB 
DW 



#0 

SCRNMODE 



SETPREFIX 
PRE FX. PARMS 



INIT.KRNL () 

ALLOC. SEG (K. BASE I. BASE. P SYSBANK. IN) 
ALLOC . DSEG (DSEGLIST . IN) 



TURN VIDEO OFF - PREVENTS CHAR "GROWTH" DURING DOWNLOAD 
SET. PREFIX (PREFIXPATH=" . Dl " ) 



* LAUNCH CHARACTER SET DOWNLOAD (CONSOLE) AND CLEAR SCREEN 

; BEGIN CHARACTER SET DOWNLOAD (CONSOLE) 



CLEAR0 
CLEAR1 



CLI 

LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
LDY 
STA 
STA 
DEY 
BPL 
INC 
INC 
DEX 
BNE 

INC 
BNE 
I NX 
BNE 

LDA 
STA 
RTS 
REP 

CHN 



#0 

CXPAGE+SRC . P+l 

CXPAGE+DST . P+l 

#$04 

SRC. P+l 

DST.P+1 

#$00 

SRC.P 

#$80 

DST.P 

#$A0 

#8 

#$77 

(SRC.P) ,Y 
(DST.P) ,Y 

CLEAR1 
SRC. P+l 
DST.P+1 

CLEARO 

SRC.P 
WAIT 



#$80 

SCRNMODE 



SOSLDR.E.SRC 



CLEAR TEXT SCREENS 



NEXT PAGE 
NEXT PAGE 



; WAIT FOR DOWNLOAD TO COMPLETE 



TURN VIDEO ON 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.D.SRC 

************************************************************************* 



End of File 



Lines: 635 Characters: 19090 
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FILE : "SOS. SOSLDR.E. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.E. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



100 



* SET. DRIVES ( IN: A=# DRIVES 

* IN: DIB1..4 ) 

* (INITIALIZES DIB LINKS IN KERNEL'S FLOPPY DRIVER) 



SET. DRIVES 



STDR010 



STDR020 



STDR030 



STDR040 



REP 

EQU 
TAY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 

LDA 
CPY 
BCC 
BEQ 
CPY 
BCC 
BCS 

STA 
STA 
RTS 

STA 
STA 
RTS 

STA 
STA 
RTS 

STA 

STA 

RTS 

PAGE 

REP 



100 



#>DIB2 

DIB1 

#<DIB2 

DIB1+1 

#>DIB3 

DIB2 

#<DIB3 

DIB2+1 

#>DIB4 

DIB3 

#<DIB4 

DIB3+1 

#0 
#2 

STDR010 
STDR020 
#4 

STDR030 
STDR040 

DIB1 
DIB1+1 



DIB2 
DIB2+1 



DIB3 
DIB3+1 



DIB4 
DIB4+1 



100 



* INIT.KRNL () 



* (CALLS KERNEL INITIALIZATION MODULES) 
REP 100 



INIT.KRNL 



EQU 
LDA 
ORA 
STA 

LDA 
STA 

JSR 
JSR 
JSR 
BCS 
JSR 
JSR 
JSR 
JSR 
JSR 



E.REG 

#$44 

E.REG 

#<SZPAGE 
Z .REG 

INT. INIT 
EVQ. INIT 
BFM. INIT2 
INITK.ERR 
DMGR. INIT 
CFMGR. INIT 
MMGR. INIT 
BMGR. INIT 
BFM. INIT 



SAVE # OF DRIVES 
DIB1:=ADR(DIB2) 



DIB2:=ADR(DIB3) 



DIB3:=ADR(DIB4) 



CASE (Y=# OF DRIVES) 



1: DIB1:=0 



2: DIB2:=0 



DIB3 :=0 



4: DIB4:=0 
RETURN 



SWITCH IN I/O BANK AND SELECT PRIMARY STACK 
E:=( 0.1.1.X:0. 1.0.0 ) 
( 1 . 1.S.R:W.P.R.R ) 

SWITCH TO SOS ZPAGE 



CALL KERNEL INITIALIZATION ROUTINES 
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000077 




JSR 






CLK. INIT 






000078 
















000079 




LDA 






E .REG 


SWITCH OUT I/O BANK AND RETURN TO 


000080 




AND 






#$BB 


E:-( . U . 1 .X: U . U . . U ) 




000081 




STA 






E . REG 


( l.I.S.R:W.P.R.R ) 




000082 
















000083 




LDA 






#<CZPAGE 


SWITCH BACK TO USER ZPAGE 




000084 




STA 






Z . REG 






000085 
















000086 




RTS 








RETURN 




000087 
















000088 
















000089 


INITK. ERR 


LDX 






#ERR0X 


ERROR ( " I/O ERROR" ) 




000090 




LDY 






#ERR0L 






000091 




JMP 






ERROR 






000092 




PAGE 












000093 




REP 






100 






000094 
















000095 


* ADVANCE ( 


I / : WORF 


.P 










000096 




OUT: SRC. 


P 










000097 




OUT: DST. 


P 










000098 




OUT : CNT 












000099 


* (ADVANCES 


WORK . P TO 


NEXT 


INTERP . KERNEL MODULE. 


INITS SRC . P, DST . P, CNT FOR 


MOVE) 


000100 




REP 






100 






000101 
















000102 


ADVANCE 


EQU 












000103 




CLC 












000104 




LDY 






#2 


Y : =0 




000105 




LDA 






WORK . P 


WORK . P : =WORK . P+ (WORK . P) , Y + 


4 


000106 




ADC 






(WORK. P) , Y 






000107 




TAX 












000108 




I NY 












000109 




LDA 






WORK . P+l 






000110 




ADC 






(WORK. P) , Y 






000111 




PHA 












000112 




TXA 












000113 




ADC 






#4 






000114 




STA 






WORK . P 






000115 




PLA 












000116 




ADC 






#0 






000117 




STA 






WORK . P+l 






000118 




CLC 








SRC . P : —X : WORK . P+4 




000119 




LDA 






WORK . P 






000120 




ADC 






#>$0004 






000121 




STA 






SRC . P 






000122 




LDA 






WORK . P+l 






000123 




ADC 






#<$0004 






000124 




STA 






SRC . P+l 






000125 




LDA 






CXPAGE+WORK. P+l 






000126 




STA 






CXPAGE+SRC . P+l 






000127 




LDY 






#0 


DST.P:— 0: (WORK.P) 




000128 




STY 






CXPAGE+DST . P+l 






000129 




LDA 






(WORK. P) , Y 






000130 




STA 






DST . P 






000131 




I NY 












000132 




LDA 






(WORK. P) , Y 






000133 




STA 






DST . P+l 






000134 




I NY 








Y : =2 




000135 




LDA 






(WORK.P) , Y 


CNT : = ( WORK . P ) , Y 




000136 




STA 






CNT 






000137 




I NY 












000138 




LDA 






(WORK.P) , Y 






000139 




STA 






CNT + 1 






000140 




RTS 








RETURN 




000141 




PAGE 












000142 




REP 






100 






000143 
















000144 


* REVERSE ( 


IN: D.HDR.CNT 






000145 




IN: SDT. 


SIZE 


- CONSTANT 






000146 




I/O: DRIVER 


FILE, 






000147 




OUT : WORK . P 




) ) 






000148 
















000149 




LOCAL : REV 


SAVE, REV. TEMP 






000150 


* (REVERSES 


TITLE/CODE/RELOC COUNTS TO ALLOW DRIVER FILE TO BE PROCESSED FROM 


BACK 


000151 




REP 






100 






000152 


REVERSE 


EQU 












000153 




LDA 






#>D . HDR. CNT 


WORK . P : =8 : D . HDR . CNT 




000154 




STA 






WORK . P 






000155 




LDA 






#<D . HDR. CNT 






000156 




STA 






WORK. P+l 






000157 




LDA 






#580 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



REVO 10 



REVO 30 



STA 
CLC 
LDY 
LDA 
ADC 
TAX 
I NY 
LDA 
ADC 
PHA 
TXA 
ADC 
STA 
PLA 
ADC 
STA 
LDA 
DEY 
AND 
CMP 
BNE 
LDX 
LDY 
JSR 
LDA 
STA 
STA 

LDA 
PHA 
LDA 
PHA 
LDY 
LDA 
STA 
I NY 
LDA 
STA 
PLA 
STA 
DEY 
PLA 
STA 
LDA 
AND 
CMP 
BEQ 
BIT 
BMI 
CLC 
LDA 
ADC 
TAX 
LDA 
ADC 
PHA 
BCS 
TXA 
ADC 
STA 
PLA 
ADC 
STA 
BCC 
LDX 
LDY 
JSR 

RTS 

PAGE 

REP 



CXPAGE+WORK.P+1 
#0 

WORK . P 
(WORK.P) ,Y 



WORK.P+1 
(WORK. P) ,Y 



#2 

WORK . P 

#0 

WORK.P+1 
(WORK.P) ,Y 

(WORK.P) , Y 

#$FF 

REVO 10 

#ERR10X 

#ERR10L 

ERROR 

#$FF 

REV. SAVE 
REV. S AVE +1 

REV. SAVE 

REV. SAVE +1 

#0 

(WORK.P) ,Y 
REV. SAVE 

(WORK.P) ,Y 
REV.SAVE+1 



WORK. P:=WORK.P+ (WORK.P) +2 



(WORK.P) ,Y 



(WORK.P) ,Y 
REV. SAVE 
REV.SAVE+1 
#$FF 

REV. EXIT 
REV.SAVE+1 
REVO 40 

WORK . P 
REV. SAVE 

WORK.P+1 
REV. SAVE +1 

REVO 40 

#2 

WORK . P 

#0 

WORK.P+1 
REVO 20 
IERR5X 
#ERR5L 
ERROR 



100 



* 
* 


DADVANCE 


I/O 


WORK.P 


* 




OUT 


C="NO DRIVERS LEFT" 


* 




OUT 


SRC.P 


* 




OUT 


CNT 


* 




OUT 


REL.P ) 


* 


(ADVANCES 


WORK 


P TO NEXT DRIVER MODULE 



IF (WORK.P)=$FFFF 
THEN 

ERROR ("EMPTY DRIVER FILE") 



;R1: STACK :=REV. SAVE 



REV . SAVE : = (WORK . P ) 



(WORK.P) :=STACK 



IF REV. SAVE = $FFFF THEN EXIT 



IF REV. SAVE >= $8000 THEN ERROR 
WORK . P : =WORK . P+REV . SAVE+2 



IF C=FALSE THEN Rl 

ELSE ERROR ( "INVALID DRIVER FILE") 



REP 
EQU 
LDY 



100 



#0 



IF (WORK.P)=$FFFF THEN EXIT "NO DRIVERS LEFT IN FILE" 
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000239 


LDA 


(WORK. P) , Y 


000240 


I NY 




000241 


AND 


(WORK. P) , Y 


000242 


CMP 


#$FF 


000243 


BNE 


DADV0 1 


000244 


SEC 


; C:="NO DRIVERS LEFT" 


000245 


RTS 


; RETURN 


000246 






000247 






000248 


DADV010 LDA 


WORK.P ; REL . P : — X: WORK. P 


000249 


STA 


REL . P 


000250 


LDA 


WORK. P+l 


000251 


STA 


REL . P+l 


000252 


LDA 


CXPAGE+WORK. P+l 


000253 


STA 


CXPAGE+REL . P+l 


000254 






000255 


JSR 


DADD ; ADVANCE TO CODE COUNT FIELD 


000256 






000257 


LDY 


#0 ; CNT : = (WORK. P) 


000258 


LDA 


(WORK. P) , Y 


000259 


STA 


CNT 


000260 


I NY 




000261 


LDA 


(WORK. P) , Y 


000262 


STA 


CNT + 1 


0002 63 






0002 64 


JSR 


DADD ; ADVANCE TO TITLE CNT FIELD 


000265 






0002 66 


CLC 


; SRC . P : =X : WORK . P+2 


000267 


LDA 


WORK . P 


000268 


ADC 


#2 


000269 


STA 


SRC . P 


000270 


LDA 


WORK. P+l 


000271 


ADC 


#0 


000272 


STA 


SRC . P+l 


000273 


LDA 


CXPAGE+WORK. P+l 


000274 


STA 


CXPAGE+SRC . P+l 


000275 






000276 


JSR 


DADD ; ADVANCE TO RELOC FIELD OF NEXT DRIVER 


000277 


CLC 


; C : =" DRIVERS LEFT" 


000278 


RTS 


; RETURN 


000279 


PAGE 




000280 


REP 


100 


000281 






000282 


* DADD ( I/O: WORK . P ) 




000283 






000284 


* (ADVANCES WORK.P TO NEXT 


FIELD IN DRIVER MODULE) 


000285 


REP 


100 


000286 


DADD EQU 




000287 


SEC 


; WORK . P : -WORK . P- (WORK.P) -2 


000288 


LDY 


#0 


000289 


LDA 


WORK . P 


000290 


SBC 


(WORK. P) , Y 


000291 


TAX 




000292 


I NY 




000293 


LDA 


WORK . P+l 


000294 


SBC 


(WORK. P) , Y 


000295 


PHA 




000296 


TXA 




000297 


SBC 


#2 


000298 


STA 


WORK . P 


000299 


PLA 




000300 


SBC 


#0 


000301 


STA 


WORK. P+l 


000302 


RTS 


; RETURN 


000303 


PAGE 




000304 


REP 


100 


r\ n n o n c 

000305 






000306 


* FLAGS ( IN: SRC . P 




000307 


* OUT: PG. ALIGN 




000308 


* OUT: FIRST. ADIB 




000309 


* OUT: OV="ALL DIBS INACTIVE" ) 


0U0310 






000311 


* LOCAL : PREV . ADIB . P, DIB . P 


000312 


* (PROCESSES "INACTIVE" & 


PAGE ALIGN" FLAGS IN DRIVER MODULE'S DIBS" 


000313 


REP 


100 


000314 


FLAGS EQU 




000315 


SEC 


; C="FIRST DIB" 


000316 


FLAG010 JSR 


NEXT. DIB ; NEXT . DIB (SRC . P . IN, DIB.P PG . ALIGN C OV.OUT) 


000317 


BVC 


FLAG015 ; IF OV <> "INACTIVE" THEN ACTIVE DIB FOUND 


000318 


BCC 


FLAG010 ; IF C <> "LAST DIB" THEN CHECK NEXT DIB 


000319 


RTS 


; RETURN (OV:="ALL DIBS INACTIVE") 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 



FLAG020 



FLAG025 



FLAG050 



FLAG100 



PHP 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
PLP 
BCS 

JSR 
PHP 
LDY 
BVC 
SEC 
LDA 
SBC 
STA 
I NY 
LDA 
SBC 
STA 
JMP 

SEC 
LDA 
SBC 
STA 
I NY 
LDA 
TAX 
SBC 
STA 
STX 
LDA 
STA 
PLP 
BCC 

CLV 
RTS 
PAGE 
REP 



PUSH STATUS 

FIRST . ADIB : =DIB . P-SRC . P 



DIB.P 
SRC.P 

FIRST. ADIB 
DIB.P+1 
SRC.P+1 
FIRST. ADIB+1 
DIB. P 

PREV.ADIB. P 
DIB.P+1 
PREV.ADIB. P+l 
CXPAGE+DIB . P+l 
CXPAGE+PREV. ADIB . P+l 

FLAG100 



#0 

FLAG025 

PREV.ADIB. P 
SRC.P 

(PREV.ADIB.P) ,Y 

PREV.ADIB. P+l 
SRC.P+1 

(PREV.ADIB.P) ,Y 

FLAG050 



DIB.P 
SRC.P 

(PREV.ADIB.P) ,Y 
DIB. P+l 
SRC.P+1 

(PREV.ADIB.P) ,Y 
PREV.ADIB. P+l 
DIB. P 

PREV.ADIB. P 

FLAG020 



PREV. ADIB. P:=X: DIB.P 



PULL STATUS 

IF C="LAST DIB" THEN EXIT 

NEXT. DIB (SRC.P. IN, DIB.P PG . ALIGN C OV.OUT) 

PUSH STATUS 

IF OV=" INACTIVE DIB" 

THEN 

(PREV.ADIB.P) : =PREV. ADIB. P-SRC. P 



ELSE 

(PREV.ADIB.P) :=DIB. P-SRC. P 



PREV. ADIB. P:=DIB.P 



PULL STATUS 

IF C <> "LAST DIB" THEN PROCESS NEXT DIB 



OV:="ACTIVE DIBS" 
RETURN 



100 





NEXT. DIB 


IN: 


C="FIRST DIB" 






IN: 


SRC.P 


* 




OUT: 


DIB.P 


* 




OUT: 


PG. ALIGN 


* 




OUT: 


C="LAST DIB" 


* 
* 




OUT: 


OV="INACTIVE DIB" ) 


* 




LOCAL 


DIB. FLAGS, DIB.DCB = 


* 


(ADVANCES 


TO NEXT DIB IN DRIVER MODULE) 



000381 




REP 


100 




000382 


NEXT. DIB 


EQU 






000383 




LDY 


#0 




000384 




BCC 


NXTD010 


; IF C = "FIRST DIB" 


000385 




STY 


PG. ALIGN 


THEN 


000386 




STY 


PG.ALIGN+1 


PG - ALIGN : =0 


000387 




LDA 


SRC.P 


DIB. P:=X: SRC.P 


000388 




STA 


DIB.P 




000389 




LDA 


SRC.P+1 




000390 




STA 


DIB. P+l 




000391 




LDA 


CXPAGE+SRC . P+l 




000392 




STA 


CXPAGE+DIB . P+l 




000393 




JMP 


NXTD020 




000394 


NXTD010 


LDA 


SRC.P 


ELSE 


000395 




ADC 


(DIB.P) ,Y 


DIB.P: =SRC . P+ (DIB 


000396 




TAX 






000397 




I NY 






000398 




LDA 


SRC.P+1 




000399 




ADC 


(DIB.P) ,Y 




000400 




STA 


DIB. P+l 
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000401 


STX 


DIB . P 




000402 








000403 


NXTD020 LDY 


#DIB. FLAGS 


; IF (DIB. P) , DIB . FLAGS -BIT7 = "INACTIVE" 


000404 


LDA 


(DIB . P) , Y 




000405 


BMI 


NXTD030 




000406 


BIT 


NXTD999 


; THEN 


000407 


BVS 


NXTD040 


; OV : =" INACTIVE" 


000408 






ELSE 


000409 


NXTD030 AND 


#$40 


; IF (DIB . P) , DIB . FLAGS . BIT6 = "PAGE ALIGN" 


000410 


BEQ 


NXTD040 




000411 


CLC 




; THEN 


000412 


LDA 


#DIB . DCB+2 


; PAGE .ALIGN : =DIB . DCB+2 + (SRC . P) , DIB . DCB 


000413 


TAY 






000414 


DEY 






000415 


DEY 






000416 


ADC 


(SRC . P) , Y 




000417 


STA 


PG. ALIGN 




000418 


I NY 






000419 


LDA 


#0 




000420 


ADC 


(SRC . P) , Y 




000421 


STA 


PG. ALIGN+1 




000422 


CLV 




; OV:="ACTIVE" 


000423 








000424 


NXTD040 LDY 


#0 


; IF (DIB.P) = 


000425 


LDA 


(DIB . P) , Y 




000426 


I NY 






000427 


ORA 


(DIB . P) , Y 




000428 


BNE 


NXTD998 




000429 


SEC 




THEN C:="LAST DIB" 


000430 


BCS 


NXTD999 




000431 


NXTD998 CLC 




ELSE C:=NOT "LAST DIB" 


000432 


NXTD999 RTS 




; RETURN 


000433 


REP 


100 




000434 








000435 


CHN 


SOSLDR.F.SRC 




000436 








000437 


RTS 




; RETURN 


000438 








000439 


************************************************************* 


000440 


* END OF APPLE /// SOS 1 


3 SOURCE CODE FILE: 


SOSLDR.E.SRC 


000441 


************************************************************************* 


000442 









End of File — Lines: 442 Characters: 12097 
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FILE : ■ 


SOS.SOSLDR.F.SRC 


.TEXT" 








000001 


************************************************************************* 




000002 


* APPLE /// SOS 


1.3 SOURCE 


CODE FILE: 


SOSLDR.F.SRC 




000003 












000004 


* ASSEMBLER : APPLE ] [ 6502 


ASSEMBLER 


from APPLE COMPUTER TOOLKIT 




000005 












000006 




PAGE 








000007 




REP 


100 






000008 


* 










000009 


* GETMEM ( IN: 


PG. ALIGN 








000010 


* IN: 


CNT 








000011 


* I/O: 


DST.P 








000012 


I/O: 


DSTBANK 








000013 


* I/O: 


DSEGLIST 








000014 


* OUT: 


PREVBANK 


) 






000015 


* 










000016 


* LOCAL : PREVDST 








000017 


* (COMPUTES # OF PAGES TO 


ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT) 




000018 




REP 


100 






000019 


GETMEM 


EQU 








000020 




LDA 


DSTBANK 


; PREVBANK :=DSTBANK 




000021 




STA 


PREVBANK 






000022 




LDA 


DST . P 


; PREVDST :=DST.P 




000023 




STA 


PREVDST 






000024 




LDA 


DST . P+l 






000025 




STA 


PREVDST+1 






000026 




JSR 


NEWDST 


; NEWDST(PG. ALIGN. IN, PREVDST. IN, CNT. IN, DST.P. 


000027 


* 










000028 




LDA 


DST. P+l 


; IF DST.P >= $2000 




000029 




CMP 


#520 






000030 




BCC 


GETM010 






000031 




SEC 




; THEN 




000032 




LDA 


PREVDST+1 


; A= PAGES : =PREVDST-DST . P 




000033 




SBC 


DST. P+l 






000034 




CLC 








000035 




JSR 


BUILD. DSEG 


; BUILD . DSEG (C— "NEXT BANK" . IN 


A=PAGES . IN, 


000036 




JMP 


GETM.EXIT 






000037 


* 






ELSE 




000038 


GETM010 


DEC 


DSTBANK 


DSTBANK :=DSTBANK-1 




000039 




LDA 


#>$A000 


PREVDST :=$A000 




000040 




STA 


PREVDST 






000041 




LDA 


#<$AO00 






000042 




STA 


PREVDST+1 






000043 




JSR 


NEWDST 


NEWDST (PG. ALIGN. IN, PREVDST 


IN, CNT. IN, 


000044 




SEC 




A="PAGES" :=PREVDST-DST . P 




000045 




LDA 


PREVDST+1 






000046 




SBC 


DST. P+l 






000047 




SEC 








000048 




JSR 


BUILD. DSEG 


BUILD. DSEG (C="NEXTBANK" . IN, 


A="PAGES" . IN 


000049 












000050 


GETM.EXIT 


RTS 




; RETURN 




000051 




PAGE 








000052 




REP 


100 






000053 


* 










000054 


* NEWDST ( IN: 


PG. ALIGN 








000055 


* IN: 


PREVDST 








000056 


* IN: 


CNT 








000057 


* I/O: 


DST.P 


) 






000058 


* (COMPUTES DESTINATION BASE ADDRESS, 


ALIGNING ON PAGE BOUNDARY IF REQUESTED) 




000059 




REP 


100 






000060 


NEWDST 


EQU 


* 






000061 




SEC 




; IF (PREVDST-$2000) < CNT 




000062 




LDA 


PREVDST 






000063 




SBC 


#>$2000 






000064 




TAX 








000065 




LDA 


PREVDST+1 






000066 




SBC 


#<$2000 






000067 




CPX 


CNT 






000068 




SBC 


CNT+1 






000069 




BCS 


NEWD010 






000070 




LDA 


#0 


THEN 




000071 




STA 


DST.P 


DST.P:=0 




000072 




STA 


DST. P+l 






000073 




BEQ 


NEWD . EXIT 






000074 


NEWD010 


SEC 




ELSE 




000075 




LDA 


PREVDST 


DST . P : =PREVDST-CNT 




000076 




SBC 


CNT 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



STA 


DST . P 


LDA 


PREVDST+1 


SBC 


CNT+1 


STA 


DST . P+l 


LDA 


PG. ALIGN 


ORA 


PG. ALIGN+1 


BEQ 


NEWD . EXIT 


SEC 




LDA 


#0 


SBC 


PG. ALIGN 


STA 


DST.P 


LDA 


DST. P+l 


SBC 


PG. ALIGN+1 


STA 


DST. P+l 


RTS 




PAGE 




REP 


100 



IF PG. ALIGN <> 
THEN 



DST. P:= (DST. P/256*256) -PG. ALIGN 



NEWD. EXIT 



* BUILD. DSEG ( IN: C="NEXTBANK" 

* IN: A="PAGES" 

* I/O: DSEGLIST ) 

* (COMPUTES # OF PAGES TO ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT) 



BUILD. DSEG 



BLDS010 
BLDS020 



DSEGX 
DSEGLIST 



REP 
EQU 
PHA 
BCS 
LDA 
BPL 
INC 
LDX 
CLC 
PLA 
ADC 
STA 
RTS 



DFB 

DFB 

DFB 

DFB 

DFB 

PAGE 

REP 



100 



BLDS010 

DSEGX 

BLDS020 

DSEGX 

DSEGX 



DSEGLIST, X 
DSEGLIST, X 



SFF 

$0 
$0 
$0 
$0 

100 



IF ("NEXTBANK"=TRUE OR DSEGX-$FF) 
THEN 

DSEGX :=DSEGX+1 

DSEGLIST (DSEGX) :=DSEGLIST (DSEGX) +"PAGES" 



DRIVER SEGMENT LIST TABLE 

# PAGES FOR 1ST DRIVER SEGMENT (BANK N ) 

2ND " (BANK N-l) 

3RD " (BANK N-2) 

4TH " (BANK N-3) 



RELOC ( IN: 
IN: 
IN: 
OUT: 



SRC.P 
REL.P 
DST.P 

RELOCATED DRIVER MODULE 



LOCAL: REL.END, 
(RELOCATES DRIVER MODULE ' 



CODE . P 
S CODE 



FIELD USING RELOCATION FIELD) 



REP 


100 




EQU 






SEC 






LDY 


#0 




LDA 


REL. 


P 


SBC 


(REL 


■ P) ,Y 


STA 


REL. 


END 


I NY 






LDA 


REL. 


P+l 


SBC 


(REI 


■ P) , Y 


STA 


REL. 


END+1 


SEC 






LDA 


REL. 


P 


SBC 


#2 




STA 


REL. 


P 


LDA 


REL. 


P+l 


SBC 


#0 




STA 


REL. 


P+l 


LDA 


REL. 


P 


CMP 


REL. 


END 


LDA 


REL. 


P+l 


SBC 


REL. 


END+1 


BCC 


REL. 


EXIT 


LDY 


#0 




CLC 






LDA 


SRC. 


P 


ADC 


(REL 


■ P) ,Y 


STA 


CODE 


.P 



REL . END : =REL . P- (REL. P) 



REL.P:=REL.P-2 



IF REL.P < REL.END THEN EXIT 



CODE . P : =X : SRC . P+ (REL . P) 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



I NY 




LDA 


SRC . P+l 


ADC 


(REL . P) , Y 


STA 


CODE . P+l 


LDA 


CXPAGE+SRC . P+l 


STA 


CXPAGE+CODE . P+l 


LDY 


#0 


CLC 




LDA 


(CODE.P) , Y 


ADC 


DST . P 


STA 


(CODE.P) ,Y 


I NY 




LDA 


(CODE.P) ,Y 


ADC 


DST. P+l 


STA 


(CODE.P) ,Y 


JMP 


REL . LOOP 


RTS 




PAGE 




REP 


100 



(CODE.P) := (CODE.P) +DST. P 



GOTO REL. LOOP 
RETURN 



ALLOC. SEG ( IN: K . BASE 

IN: I. BASE. P 
IN: SYSBANK ) 
I . BASE . P 
D . BASE . PG 
(ALLOCATES SEGMENTS FOR KERNEL, 



INTERPRETER AND SYSTEM WORK AREA) 



100 



ALLOC . SEG 



REP 
EQU 
BRK 
DFB 
DW 

LDA 
STA 
STA 
LDA 
STA 

LDX 
JSR 

LDX 

JSR 

RTS 

PAGE 

REP 



* RSEG ( IN: X=BASE . PAGE OF SEGMENT 



REQSEG 
SEGMENT 

#510 
SEGBASE 
SEGLIM 
#0 

SEGBASE+1 

K.BASE+1 
RSEG 

I. BASE. P+l 

RSEG 



; REQ . SEG (BASE= (F, 0) , LIMIT= (F, ID) , SEGID=0, SEGNUM) 



SET BASE/LIMIT BANKS 



AND INIT BASE PAGE 



KERNEL SEGMENT, ID=1 



INTERPRETER SEGMENT, ID=2 



REP 
EQU 
INC 
LDY 
DEY 
STY 
STX 

CPX 
BCS 
LDA 
CMP 
BCC 

TXA 
PHA 

LDX 
STX 

BRK 
DFB 
DW 

PLA 
STA 
LDA 
STA 
LDA 
STA 
STA 



100 

SEGID 
SEGBASE+1 

SEGLIM+1 
SEGBASE+1 

#$A0 

RSEG010 

SEGLIM+1 

#$A0 

RSEG010 



#SA0 

SEGBASE+1 



REQSEG 
SEGMENT 



SEGBASE+1 

#$9F 

SEGLIM+1 

SYSBANK 

SEGBASE 

SEGLIM 



SEGID:=SEGID+1 

LIMIT . PAGE : —BASE . PAGE-1 



; BASE. PAGE :=X 

IF BASE>=$A0 OR LIMIT<$A0 THEN 
THEN 

REQUEST ONLY ONE SEGMENT 



ELSE 

REQUEST TWO SEGMENTS 



REQ . SEG (BASE, LIMIT, SEGID, SEGNUM) 
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000239 












000240 


RSEG010 


BRK 






REQ . SEG (BASE, LIMIT, SEGID, SEGNUM) 


000241 




DFB 




REQSEG 




000242 




DW 




SEGMENT 




000243 












000244 




RTS 






RETURN 


000245 




PAGE 








000246 




REP 




100 




000247 












000248 


* ALLOC . DSEG 


( IN: DSEGLIST ) 




000249 












000250 


* (ALLOCATES 


SEGMENTS FOR 


DRIVER MODULES" 




000251 




REP 




100 




000252 


ALLOC . DSEG 


EQU 








000253 




INC 




DSEGX 


DSEGX : =DSEGX+1 


000254 




BNE 




ALDS 01 


IF DSEGX=0 


000255 




LDX 




#ERR5X 


THEN ERROR ( "INVALID DRIVER FILE" 


000256 




LDY 




#ERR5L 




000257 




JSR 




ERROR 




000258 












000259 


ALDS010 


LDY 




#$FF 


Y:=-l 


000260 


ALDS020 


I NY 






WHI LE ( Y : =Y+ 1 ) < DSEGX 


000261 




CPY 




DSEGX 


DO 


000262 




BCS 




ALDS .EXIT 




0002 63 




LDA 




DSEGLIST, Y 


PAGECT : =DSEGLIST (Y) 


0002 64 




STA 




SEGPGCNT 




000265 




BRK 






FINDSEG (SRCHMODE=0 . IN, SEGID 


000266 




DFB 




FINDSEG 


PAGECT=DSEGLIST (Y) 


000267 




DW 




SEGMENT 1 


BASE . OUT, LIMIT . OUT) 


000268 




JMP 




ALDS020 




000269 












000270 


ALDS . EXIT 


RTS 






RETURN 


000271 




PAGE 








000272 




REP 




100 




000273 












000274 


* ERROR ( IN : 


X=MESSAGE 


INDEX 




000275 


* IN : 


Y=MESSAGE 


LENGTH 




000276 


* (DISPLAYS 


3RROR MESSAGE 


SOUNDS BELL AND LOOPS 


UNTIL CONTROL/RESET PRESSED) 


000277 




REP 




100 




000278 


ERROR 


EQU 








000279 




STY 




ETEMP 


CENTER MSG ( Y : =LEN/2 + LEN) 


000280 




SEC 








000281 




LDA 




#40 




000282 




SBC 




ETEMP 




000283 




LSR 




A 




000284 




CLC 








000285 




ADC 




ETEMP 




000286 




TAY 








000287 












000288 


PRNT010 


LDA 




ERR, X 


MOVE MESSAGE TO SCREEN MEMORY 


000289 




STA 




EMSGADR- 1, Y 




000290 




DEX 








000291 




DEY 








000292 




DEC 




ETEMP 




000293 




BNE 




PRNT010 




000294 


* 










000295 




LDA 




#$73 


E:=( 0.1.1.1:0.0.1.1 ) 


000296 




STA 




E.REG 


( l.I.S.R:W.P.R.S ) 


000297 




LDA 




$C040 


SOUND BELL 


000298 




JMP 






LOOP UNTIL REBOOT (CTRL/RESET) 


000299 




PAGE 








000300 




REP 




100 




000301 












000302 


* ERROR MESSAGES 








000303 












000304 




REP 




100 




000305 


EMSGADR 


EQU 




S7A8 




000306 












000307 


ERR 


EQU 








000308 


ERR0 


ASC 




"I/O ERROR" 




000309 


ERR0L 


EQU 




*-ERR0 




00U31U 


ERROX 


EQU 




*-ERR-l 




000311 


ERR1 


ASC 




"INTERPRETER FILE NOT 


FOUND" 


000312 


ERR1L 


EQU 




*-ERRl 




000313 


ERR1X 


EQU 




*-ERR-l 




000314 


ERR2 


ASC 




"INVALID INTERPRETER FILE" 


000315 


ERR2L 


EQU 




*-ERR2 




000316 


ERR2X 


EQU 




*-ERR-l 




000317 


ERR3 


ASC 




"INCOMPATIBLE INTERPRETER" 


000318 


ERR3L 


EQU 




*-ERR3 




000319 


ERR3X 


EQU 




*-ERR-l 
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000320 


ERR4 


ASC 


"DRIVER FILE NOT FOUND" 


000321 


ERR4L 


EQU 


*-ERR4 


000322 


ERR4X 


EQU 


*-ERR-l 


000323 


ERR5 


ASC 


"INVALID DRIVER FILE" 


000324 


ERR5L 


EQU 


*-ERR5 


000325 


ERR5X 


EQU 


*-ERR-l 


000326 


ERR6 


ASC 


"DRIVER FILE TOO LARGE" 


000327 


ERR6L 


EQU 


*-ERR6 


000328 


ERR6X 


EQU 


*-ERR-l 


000329 


ERR7 


ASC 


"ROM ERROR: PLEASE NOTIFY YOUR DEALER" 


000330 


ERR7L 


EQU 


*-ERR7 


000331 


ERR7X 


EQU 


*-ERR-l 


000332 


ERR8 


ASC 


"TOO MANY DEVICES" 


000333 


ERR8L 


EQU 


*-ERR8 


000334 


ERR8X 


EQU 


*-ERR-l 


000335 


ERR9 


ASC 


"TOO MANY BLOCK DEVICES" 


000336 


ERR9L 


EQU 


*-ERR9 


000337 


ERR9X 


EQU 


*-ERR-l 


000338 


ERR10 


ASC 


"EMPTY DRIVER FILE" 


000339 


ERR10L 


EQU 


*-ERR10 


000340 


ERR10X 


EQU 


*-ERR-l 


000341 




PAGE 




000342 




REP 


100 


000343 








000344 


* WELCOME 







000345 








000346 


* (PRINTS 


WELCOME MESSAGE - "APPLE ///", VERSION, DATE/TIME, COPYRIGHT 


000347 




REP 


100 


000348 


WELCOME 


EQU 




000349 








000350 


* PRINT 


"APPLE III" 


MESSAGE 


000351 








000352 




LDY 


#AMSGL 


000353 


WAM010 


LDA 


AMSG-1, Y 


000354 




STA 


AMSGADR-1, Y 


000355 




DEY 




000356 




BNE 


WAM010 


000357 








000358 


* PRINT 


SOS VERSION 


MESSAGE 


000359 








000360 




CLC 




000361 




LDA 


#40 


000362 




ADC 


#>SOSVERL 


000363 




LSR 


A 


000364 




TAX 




000365 




LDY 


#>SOSVERL 


000366 


WSM010 


LDA 


SOSVER-l,Y 


000367 




ORA 


#$80 


000368 




STA 


SMSGADR-1,X 


000369 




DEX 




000370 




DEY 




000371 




BNE 


WSM010 


000372 








000373 


* PRINT 


DATE AND TIME MESSAGE 


000374 








000375 




BRK 


; GET. TIME (TIME. OUT) 


000376 




DFB 


GETTIME 


000377 




DW 


DTPARMS 


000378 








000379 




LDA 


DATETIME+8 ; SET UP WEEKDAY 


000380 




AND 


#50F 


000381 




BEQ 


WDM040 ;NO CLOCK 


000382 




STA 


WTEMP 


000383 




ASL 


A 


000384 




ADC 


WTEMP 


000385 




TAX 




000386 




LDY 


#3 


000387 


WDMO 1 


LDA 


DAYNAME-1 , X 


000388 




STA 


DMSG-1, Y 


000389 




DEX 




000390 




DEY 




000391 




BNE 


WDMO 10 


000392 


* 






000393 




LDA 


DATETIME+7 ; SET UP DATE 


000394 




LDX 


DATETIME+6 


000395 




STA 


DMSG+6 


000396 




STX 


DMSG+5 


000397 


* 






000398 




LDA 


DATETIME+5 ; SET UP MONTH 


000399 




AND 


#$0F 


000400 




LDX 


DATETIME+4 
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000401 


CPX 


#$31 




000402 


BCC 


WDM020 




000403 


ADC 


#9 




000404 


WDM020 STA 


WTEMP 




000405 


ASL 


A 




000406 


ADC 


WTEMP 




000407 


TAX 






000408 


LDY 


#3 




000409 


WDM030 LDA 


MONNAME- 1 , X 




000410 


STA 


DMSG+7 , Y 




000411 


DEX 






000412 


DEY 






000413 


BNE 


WDM030 




000414 








000415 


LDA 


DATETIME+3 


; SET UP YEAR 


000416 


LDX 


DATETIME+2 




000417 


STA 


DMSG+13 




000418 


STX 


DMSG+12 




000419 








000420 


LDA 


DATETIME+10 


; SET UP HOUR 


000421 


LDX 


DATETIME+09 




r\ n n a o n 

000422 


STA 


DMSG+17 




000423 


STX 


DMSG+16 




000424 








000425 


LDA 


DATETIME+12 


;SET UP MINUTE 


000426 


LDX 


DATETIME+11 




000427 


STA 


DMSG+2 




000428 


STX 


DMSG+19 




000429 








000430 


LDY 


# DMSGL 


; PRINT DATE & TIME 


000431 


WDM050 LDA 


DMSG-1 , Y 




000432 


ORA 


#$80 




000433 


STA 


DMSGADR- 1 , Y 




000434 


DEY 






000435 


BNE 


WDM050 




000436 








000437 


* PRINT COPYRIGHT MESSAGE 






000438 








000439 


WDM040 LDY 


# CMSGL 




000440 


WCM010 LDA 


CMSG-1, Y 




000441 


STA 


CMSGADR- 1 , Y 




000442 


DEY 






000443 


BNE 


WCM010 




000444 


RTS 






000445 


PAGE 






000446 


REP 


100 




000447 








000448 


* WELCOME () - DATA DECLARATIONS 




000449 








000450 


REP 


100 




000451 


MSB 


ON 




000452 


AMSG ASC 


"APPLE ///" 




000453 


AMSGL EQU 


*-AMSG 




000454 


AMSGADR EQU 


40-AMSGL/2+$4A8 




000455 


MSB 


OFF 




000456 


SMSGADR EQU 


$5A8 




000457 


DMSG ASC 


"DAY, DD-MON-YY HH 


:MM" 


000458 


DMSGL EQU 


*-DMSG 




000459 


DMSGADR EQU 


40-DMSGL/2+$6A8 




000460 


DAYNAME ASC 


"SUNMONTUEWEDTHUFRISAT" 


0004 61 


MONNAME ASC 


" JANFEBMARAPRMAYJUN 




0004 62 


ASC 


" JULAUGSEPOCTNOVDEC 




0004 63 


MSB 


ON 




0004 64 


CMSG ASC 


" (C) 1980, 1981, 1982 


BY APPLE COMPUTER INC . " 


0004 65 


CMSGL EQU 


*-CMSG 




r\ n r\ a r r 

0004 66 


CMSGADR EQU 


40-CMSGL/2+$7D0 




r\ r\ r\ a r-i 

0004 6/ 


MSB 


OFF 




r\ n n a r n 

0004 68 


PAGE 






000469 


REP 


100 




000470 








000471 


* SOS SYSTEM CALLS (1) 






000472 








000473 


REP 


100 




000474 


* OPEN (PATHNAME. IN, REFNUM. OUT, OPENLIST.IN, 


3PENCNT.IN) ** (ACCESS 


000475 


REP 


100 




000476 


OPEN EQU 


$C8 




000477 








000478 


OPEN . PARMS DFB 


$4 




000479 


DW 


PATH 




000480 


OPEN . REF DFB 


$0 




000481 


DW 


OPEN. LIST 





(ACCESS. IN, PAGES. IN, SYSBUF.IN) 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 



OPEN. LIST 

PATH 
I . LABEL 
D . LABEL 

* READ 



DFB 
DFB 
DW 
DS 
ASC 
ASC 
REP 

(REFNUM. IN, BUFFER. 
REP 
EQU 



READ . PARMS 
READ. RE F 
READ . BUF 
READ . BYT 
READ . BYTRD 

* CLOSE (REFNUM 



DFB 

DFB 

DW 

DW 

DW 

REP 

IN) 

REP 

EQU 



CLOSE . PARMS 
CLOSE . REF 



* FIND . SEG 



SEGMENT1 

SEGSRCH 

SEGPGCNT 



DFB 
DFB 
REP 

(SRCHMODE. IN, 
REP 
EQU 

DFB 

DFB 

DW 

DW 

DW 

DFB 

PAGE 

REP 



$4 

$0, $4 

SYSBUF.P 

$40 

"SOS NTRP" 
"SOS DRVR" 
100 

IN, BYTES. IN, 
100 
$CA 

$4 
$0 

RDBUF.P 
SFFFF-FILE+1 

$0 
100 



100 
$CC 

$1 

$0 
100 
PAGES. IN, 

100 
$41 

$6 

$0,$3 
$0000 
$0 

$0 
$0 

100 



PATHNAME BUFFER 
FILE LABELS 



BYTESREAD . OUT) 



SEGID.IN, BASE. OUT, LIMIT. OUT, SEGNUM.OUT) 



; FIND. SEG (SRCHMODE, SEGID, PAGECT, BASE, LIMIT, SEGNUM) 



SOS SYSTEM CALLS (2) 



* REQUEST. SEG 

REQSEG 

SEGMENT 
SEGBASE 
SEGLIM 
SEGID 



REP 
REP 
(BASE. IN, 
REP 
EQU 

DFB 
DFB 
DFB 
DFB 
REP 



100 
100 
LIMIT. IN, 

100 
$40 

$4 

$F, $0 
$F, $1D 
$0,$0 
100 



SEGID.IN, SEGNUM.OUT) 



; REQUEST SEG PARM LIST 



* SET. PREFIX (PREFIXPATH . IN) 



SETPREFIX 
PRE FX. PARMS 



PRE FX. PATH 



REP 
EQU 
DFB 
DW 
DFB 
ASC 
REP 
TIME. OUT) 
REP 
EQU 

DFB 

DW 

ASC 

PAGE 

REP 



* END OF SOSLDR CODE 

REP 
EQU 
DS 
DS 
EQU 
EQU 
REP 

* SOS INTERPRETER FILE 

REP 

I. FILE EQU 
I . HDR . CNT EQU 



100 
$C6 
$1 

PRE FX. PATH 

$3 

' .Dl' 

100 

100 
$63 



DATETIME 

"YYYYMMDDWHHMMSSMMM" 



SLOP 

INITMODULE 

LDREND 

FILE 



100 



100 

>$F8-* 

SLOP 

$200 

*-$2000+$400 
100 

100 
FILE 

I.FILE+$8 



KERNEL'S INIT MODULE RESIDES HERE 



« Apple /// Computer ♦ SOS 1 .3 Source Code Listing • 222 of 255 




000563 






REP 


100 


000564 




SOS DRIVER FILE 




000565 






REP 


100 


000566 


D 


FILE 


EQU 


FILE 


00056 / 


D 


HDR.CNT 


EQU 


D . FILE+$8 


r\ r\ r\ n r ci 

000568 


D 


DRIVES 


EQU 


D . HDR. CNT+$2 


000569 


D 


CHRSET 


EQU 


D . DRIVES+S2+S10 


000570 


D 


KYBD 


EQU 


D.CHRSET+$10+$400 


000571 






REP 


100 


000572 










000573 






LST 


ON 


000574 


ZZEND 


EQU 


* 


000575 


ZZLEN 


EQU 


ZZEND-ZZORG 


000576 


* 








000577 


NE 


ZZLEN- 


LENLODR 


000578 






FAIL 


2,"SOSORG FILE IS INCORRECT FOR SOS 


000579 






FIN 




000580 


* 








000581 










000582 


************************************************************************* 


000583 


* 


END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: SOSLDR.F.SRC 


000584 


************************************************************************* 


000585 











End of File — Lines: 585 Characters: 15585 
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FILE : "SOS. SOSLDR. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



******************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR. SRC 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



******** 



******** 



SBTL 


"SOS 1.1 SOS 


LOADER" 


REL 






ORG 


$1E00 




EQU 






MSB 


OFF 




REP 


100 




COPYRIGHT (C) 


APPLE COMPUTER 


INC. 1980 



ALL RIGHTS RESERVED 
100 



SOS KERNEL LOAD & MEMORY POINTS 



MODULE 



SOSLDR 

INIT 

SYSGLOB 



BFM 

<PATCH> 

OPRMSG 

IPL 

UMGR 

DISK3 

SYSERR 

DEVMGR 

SCMGR 

FMGR 

CFMGGR 

BUFMGR 
MEMMGR 
<END> 



* SOS LOADER 



* SOURCE FILES: SOSLDR. SRC, 



START 


END I/O 


ROM 


SOS BLOAD 


SIZE 


1E00 - 


28F7 




2000 


0CF8 


28F8 - 


2AA9 




2AF8 


[01B2 


18FC - 


1A03 




2CF8 




BITMAPS 








B800 - 


BBFF 




2E00 


03FF 


BC00 - 


DE62 




3200 


2263 


DE63 - 


DE6A 




5463 


0008 


DE6B - 


E48A X 




546B 


015A 


DFC5 - 


E48F X 


X 


55C5 


04CB 


E490 - 


E89D X 


X 


5A8B 


040E 


E899 - 


EE03 X 


X 


5E99 


056B 


EE04 - 


EED8 X 




64D9 


00D5 


EED9 - 


F05D 




64D9 


0185 


F05E - 


F2F3 




665E 


0296 


F2F4 - 


F354 




68F4 


0061 


F355 - 


F551 




6955 


01FD 


F552 - 


F86D 




6B52 


031C 


F8 6E - 


FFBE 




6E6E 


0751 


FFBE 










REP 


100 








(VERSION =1.10 








(DATE 


= 8/04/81 









SOSLDR. A. SRC, SOSLDR. B . SRC, SOSLDR. C . SRC, 
SOSLDR. D. SRC, SOSLDR. E . SRC, SOSLDR. F. SRC 



FUNCTION: 

MOVES AND INITIALIZES SOS KERNEL, READS INTERPRETER FROM DISK, READS CHARACTER SET TABLE, 
KEYBOARD TABLE AND DRIVERS FROM DISK, INITIALIZES ALL DRIVERS AND THEN JUMPS TO INTERPRETER 
ENTRY POINT. 

CALLED BY: 

SOSBOOT 7.0 WITH KERNEL FILE LOADED AT $1 : 1E00 . 9FFF (MAX) 
WHERE: $I=INTERPRETER BANK (HIGHEST BANK IN SYSTEM) 

CALLS : 

INTERPRETER ENTRY POINT (FIRST BYTE OF INTERPRETER CODE) 

DOCUMENTS : 

SOS ERS APPENDICES - XX/XX/81 

APPLE III I/O SYSTEM PROGRAMMERS GUIDE - DEC-15-80 
CONSTRAINTS : 

INTERPRETER FILE: READ INTO BANK BEGINNING AT $80 : LDREND+S400 (=BUFSIZE) . 

INTERPRETER CODE DOES NOT CONTAIN RELOCATION INFORMATION. 
MAX = 38K ($1:2000. .B7FF) 
MIN = .25K ($1 :B700 . .B7FF) 

DRIVER FILE: READ INTO BANK BEGINNING AT $80 : LDREND+$400 (=BUFSIZE) . 

DRIVER MODULES ARE RELOCATED AND MOVED TO THE HIGHEST AVAILABLE 32K BANK USING 

A "FIRST FIT" ALGORITHM. MODULES ARE REMOVED FROM THE FILE BEGINNING AT THE BACK 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 



AND WORKING TOWARD THE FRONT. A DRIVER MODULE CANNOT SPAN A BANK BOUNDARY. 



DRIVER FILE: MAX = 60K (APPROX) 
MIN = .25K 



DRIVER MODULE: MAX = 32K-1 
MIN < .25K 



DATA STRUCTURES: 

SOS . KERNEL FILE FORMAT 
SOS.INTERP FILE FORMAT 
SOS. DRIVER FILE FORMAT 

REP 100 
PAGE 

REP 100 



C, OV 
E, Z, B 

(1 . I . S .R:W. P.R.R) 

"POSITIVE LOGIC" 
TRUE, FALSE 

REP 

ABBREVIATIONS : 
DIB 

ADIB 
<VARNAME> . P 
SDT 



6502 REGISTERS 

CARRY, OVERFLOW FLAGS IN 6502 STATUS (P) REGISTER 

ENVIRONMENT, ZERO PAGE, BANK REGISTERS (SYSTEM CONTROL REGISTERS) 

ENVIRONMENT REGISTER FLAGS. FROM LEFT TO RIGHT BITS 7..0 
(1MHZ, I/O ENABLE, SCREEN ENABLE, RESET ENABLE, 
WRITE PROTECT, PRIMARY STACK, ROM1, ROM ENABLE) 



C="NO DRIVERS LEFT" 
SET, AND THAT ONE OR 



ALL LOGIC USED IS POSITIVE LOGIC. FOR EXAMPLE, 
INDICATES THAT NO DRIVERS ARE LEFT WHEN CARRY = 
MORE DRIVERS ARE LEFT WHEN CARRY = CLEAR. 

TRUE = SET = ON, WHILE FALSE = CLEAR = OFF. 

100 



DEVICE INFORMATION BLOCK. DEFINES A UNIQUE DEVICE THAT CAN BE LINKED 
INTO THE SYSTEM DEVICE TABLE. EACH DRIVER MODULE CONTAINS ONE OR MORE 
DIBS (DEVICES) EACH OF WHICH CAN BE "ACTIVE" OR "INACTIVE". 

"ACTIVE DIB" 

POINTER. A 3 BYTE ZERO PAGE POINTER. DON'T FORGET THE X BYTE! 

SYSTEM DEVICE TABLE. CONTAINS THE ENTRY POINT AND DIB ADDRESS OF EACH 
DEVICE CONFIGURED INTO THE SYSTEM, (USED BY THE DEVICE MANAGER) . 

100 

SOSLDR.A.SRC 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.SRC 

************************************************************************* 



End of File 



Lines: 131 Characters: 4487 
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FILE : "SOS. SOSORG. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSORG 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



REP 100 
SOS KERNEL MODULE ORIGINS 



ORGLODR EQU 

ORGINIT EQU 

ORGGLOB EQU 

ORGBFMI EQU 

ORGBFM EQU 

ORGPATCH EQU 

ORGOMSG EQU 

ORGIPL EQU 

ORGUMGR EQU 

ORGDISK3 EQU 

ORGSERR EQU 

ORGDMGR EQU 

ORGSCMGR EQU 

ORGFMGR EQU 

ORGCFM EQU 

ORGBUFMG EQU 

ORGMEMMG EQU 

ORGEND EQU 
REP 

* LENGTH OF SOS MODULES 
LENLODR EQU 
LENINIT EQU 
LENBFMI EQU 
LENBFM EQU 
LENPATCH EQU 
LENOMSG EQU 
LENIPL EQU 
LENUMGR EQU 
LENDISK3 EQU 
LENSERR EQU 
LENDMGR EQU 
LENSCMGR EQU 
LENFMGR EQU 
LENCFM EQU 
LENBUFMG EQU 
LENMEMMG EQU 

REP 

* SOS BLOAD ADDRESSES 



$1E00 
$28F8 
$18FC 
$B800 
$BC00 
$DE66 
$DE66 
$DFC0 
$E48B 
$E899 
$EE04 
$EED9 
$F05E 
$F2F4 
$F355 
$F552 
$F86E 
$FFBF 
100 

— THIS MUST AGREE 
ORGINIT-ORGLODR 
$01B2 

ORGBFM-ORGBFMI 

ORGPATCH-ORGBFM 

ORGOMSG-ORGPATCH 

ORGIPL-ORGOMSG 

ORGUMGR-ORGIPL 

ORGDISK3-ORGUMGR 

ORGSERR-ORGDISK3 

ORGDMGR-ORGSERR 

ORGSCMGR-ORGDMGR 

ORGFMGR-ORGSCMGR 

ORGCFM-ORGFMGR 

ORGBUFMG-ORGCFM 

ORGMEMMG-ORGBUFMG 

ORGEND-ORGMEMMG 

100 



ORIGIN OF SOS LOADER 

ORIGIN OF INIT 

ORIGIN OF SYSGLOB 

ORIGIN OF BFM.INIT2 & BITMAPS 

ORIGIN OF BFM 

ORIGIN OF PATCH AREA 

ORIGIN OF OPRMSG 

ORIGIN OF IPL 

ORIGIN OF UMGR 

ORIGIN OF DISK3 

ORIGIN OF SYSERR 

ORIGIN OF DEVMGR 

ORIGIN OF SCMGR 

ORIGIN OF FMGR 

ORIGIN OF CFMGR 

ORIGIN OF BUFMGR 

ORIGIN OF MEMMGR 

END MARKER 



ZZLEN FOR 


EACH MODULE 


LENGTH 


OF 


SOS LOADER 


LENGTH 


OF 


INIT 


LENGTH 


OF 


BFM.INIT2 & BITMAPS 


LENGTH 


OF 


BFM 


LENGTH 


OF 


PATCH AREA 


LENGTH 


OF 


OPRMSG 


LENGTH 


OF 


IPL 


LENGTH 


OF 


UMGR 


LENGTH 


OF 


DISK3 


LENGTH 


OF 


SYSERR 


LENGTH 


OF 


DEVMGR 


LENGTH 


OF 


SCMGR 


LENGTH 


OF 


FMGR 


ORIGIN 


OF 


CFMGR 


LENGTH 


OF 


BUFMGR 


LENGTH 


OF 


MEMMGR 



BLALODR 


EQU 


$2000 


BLAINIT 


EQU 


BLALODR+ LENLODR 


BLAGLOB 


EQU 


$2CF8 


BLABFMI 


EQU 


$2E00 


BLABFM 


EQU 


$3200 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


BLAIPL 


EQU 


BLAOMSG+ LENOMSG 


BLAUMGR 


EQU 


BLAI PL+LENI PL 


BLADISK3 


EQU 


BLAUMGR+ LENUMGR 


BLASERR 


EQU 


BLADISK3+LENDISK3 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLASCMGR 


EQU 


BLADMGR+ LENDMGR 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


BLACFM 


EQU 


BLAFMGR+ LENFMGR 


BLABUFMG 


EQU 


BLACFM+LENCFM 


BLAMEMMG 


EQU 


BLABUFMG+LENBUFMG 




REP 


100 



BLOAD 


ADDRESS 


O;' 


SOS LOADER 


BLOAD 


ADDRESS 


O;' 


INIT 


BLOAD 


ADDRESS 


OF 


SYSGLOB 


BLOAD 


ADDRESS 


OF 


BFM.INIT2 S BITMAPS 


BLOAD 


ADDRESS 


OF 


BFM 


BLOAD 


ADDRESS 


OF 


PATCH AREA 


BLOAD 


ADDRESS 


OF 


OPRMSG 


BLOAD 


ADDRESS 


O;' 


IPL 


BLOAD 


ADDRESS 


OF 


UMGR 


BLOAD 


ADDRESS 


OF 


DISK3 


BLOAD 


ADDRESS 


OF 


SYSERR 


BLOAD 


ADDRESS 


OF 


DEVMGR 


BLOAD 


ADDRESS 


OF 


SCMGR 


BLOAD 


ADDRESS 


O;' 


FMGR 


BLOAD 


ADDRESS 


OF 


CFMGR 


BLOAD 


ADDRESS 


OF 


BUFMGR 


BLOAD 


ADDRESS 


OF 


MEMMGR 



END OF APPLE 



3S 1.3 SOURCE CODE FILE: SOSORG 



End of File 



Characters: 3776 
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FILE : "SOS.SWAPOUT.IN.TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SWAPOUT.IN 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

SWAPOUT EQU * 

* 

* SWAP OUT A VOLUME LOGGED ON A DEVICE 

* INPUT ARGUMENT: DEVICE NUMBER "A" 

* (STORED AS "DEVNUM") 

* OUTPUT ARGUMENT: NONE 

* CONDITION CODE: CARRY SET USER DID NOT COMPLY WITH REQUEST 

* SAVE VCBPTR, FCBPTR, DEVNUM ON STACK 

* 1) FIND UNSWAPPED VOLUME IN VCB 

* 2) IF DIRTY BIT MAP FOR THIS VOLUME THEN DO 

* IF NOT ONLINE, REQUEST USER TO INSERT 

* IF REQUEST DENIED, UNCONDITIONALLY CLOSE ALL FILES ON THIS VOLUME AND RTS 

* IF ONLINE, UPDATE AND RELEASE BIT MAP 

* DOEND 

* 3) SWAP IT (MARK VCBSWAP FIELD $80, MARK ALL FILES ON THIS VOLUME WITH SWAP MARK $8X WHERE X=VCB ENTRY) 

* "VCB ENTRY" DEFINED AS: HIGH ORDER NIBBLE OF LOW ORDER BYTE OF ENTRIES VCB ADDRESS 

* RESTORE VCBPTR, FCBPTR 

* RTS 



TAX 
JSR 
STX 
JSR 
BCS 
LDY 
LDA 
BPL 
LDA 
LDX 
CMP 
BEQ 
LDX 
CMP 
BEQ 
JMP 
LDA 
BPL 
JSR 
BCC 
JSR 
BCC 
JSR 
JSR 
SEC 
RTS 
LDX 
JSR 
LDA 
LSR 
LSR 
LSR 
LSR 
SEC 
ORA 
PHA 
JSR 
PLA 
LDY 
STA 
JSR 
CLC 
RTS 
LDA 
STA 
BEQ 



EQU 



SAVECBS 
DEVNUM 
DEWCB 
SORTS 
#VCBSTAT 
(VCBPTR) ,Y 
UNLOG 
DEVNUM 
#0 

BMADEV, X 

FDIRBM 

#6 

BMADEV, X 

FDIRBM 

MARKSWAP 

BMASTAT, X 

MARKSWAP 

VERFYVOL 

VONLINE 

USRREQ 

GETVOL 

CLOSEU 

RESTCBS 



DEVNUM 

UPBMAP 

VCBPTR 

A 

A 

A 

A 

#$80 

FCBSCAN 

#VCBSWAP 
(VCBPTR) ,Y 
RESTCBS 



SAVE DEVICE NUMBER 
PERMANENTLY 

FIND MATCHING UNSWAPPED ACTIVE VCB ENTRY (BY DEVNUM) 
NO FIND — RETURN WITHOUT ERROR 

GET STATUS OF FILES ON THIS VOLUME 

IF NO OPEN FILES, JUST THROW VOLUME AWAY 

DIRTY BM EXIST ON THIS VOLUME? 

IN BIT MAP "A"? 

BRANCH IF YES 

BIT MAP HEADER TABLE SIZE 

IN BIT MAP "B"? 

BRANCH IF YES 

NO NEED TO WRITE BIT MAP 

IS BIT MAP DIRTY? 

BRANCH IF NOT 

IS THE CORRECT VOLUME ON LINE NOW? 
BRANCH IF YES 

OTHERWISE, REQUEST USER INSERTION 
AND VERIFY IT AGAIN 

USER SAID "NO": UNCONDITIONALLY CLOSE VOLUME 



ERROR RETURN TO CALLER 

UPDATE THE 

DIRTY BIT MAP 

CALCULATE 

SWAP BYTE 

AND 

MARK ALL FILES 
BELONGING TO THIS VOLUME 
AS SWAPPED OUT 

; SAVE SWAP BYTE 

; MARK VCBSWAP 
; BYTE 



RESTORE FCBPTR, VCBPTR, DEVNUM 



SUCCESSFUL SWAP OUT 



#0 

VCB,X 
SORTS 



UNLOG VOLUME 

SWAP THE EASY WAY! 



(BRANCH ALWAYS) 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
POINT) 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
TWICE. 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 



* UNSWAP A VOLUME AND ALL ITS FILES 

* INPUT ARGUMENT : VOLUME NAME (VCBPTR) 

* OUTPUT ARGUMENT: NONE 

* CONDITION CODE: CARRY SET : USER DID NOT COMPLY WITH REQUEST 

* SAVE VCBPTR, FCBPTR ON STACK 

* 1) FIND SWAPPED VOLUME IN VCB, IF NOT FOUND, THEN RTS . 

* 2) IF ANOTHER UNSWAPPED VOLUME ON DEVICE, THEN SWAP IT 

* 3) VERIFY UNSWAPPED VOLUME, IF NOT OK THEN REQUEST INSERTION 

* 4) UNMARK VCB'S AND FCB ' S 

* RTS 



RESTCBS 
* NOTICE 



JSR 


SAVE CBS 


SAVE FCB, VCB POINTERS, DEVNUM 


LDY 


#VCBNML 


MAKE SURE VOLUME 


LDA 


(VCBPTR) , Y 


IS AT LEAST OPEN 


BEQ 


USRTS 


BRANCH IF NOT RIGHT BACK TO CALLER 


LDY 


#VCBSWAP 


SEE IF 


LDA 


(VCBPTR) , Y 


CURRENTLY SWAPPED 


BEQ 


USRTS 


IF NOT, RETURN IMMEDIATELY TO CALLER 


LDY 


#VCBDEV 


SAVE DEVICE NUMBER 


LDA 


(VCBPTR) , Y 




STA 


DEVNUM 




PHA 




SAVE DEVNUM AGAIN (SWAPOUTX TRASHES DEVNUM ON RETURN) 


JSR 


SWAPOUTX 


AND MAKE SURE ANY CURRENT ACTIVE VOLUME IS SWAPPED OUT (NOTICE ENTRY 


PLA 




RECALL CURRENT DEVICE NUMBER 


STA 


DEVNUM 


AND SAVE IT TO ITS PROPER PLACE 


JSR 


VERFYVOL 


VERIFY THE CURRENT VOLUME MOUNTED 


BCC 


UNMARK 


IF THE RIGHT ONE, GO MARK IT AS UNSWAPPED 


JSR 


USRREQ 


ELSE REQUEST USER TO INSERT 


BCC 


SI1 


USER SAID 'OK' 


JSR 


CLOSEU 


OTHERWISE UNCONDITIONALLY CLOSE 


JSR 


RESTCBS 




SEC 






RTS 






LDY 


#VCBSWAP 


FETCH 


LDA 


(VCBPTR) , Y 


VOLUME 


PHA 




SWAP BYTE 


LDA 


#0 


BUT CLEAR 


STA 


(VCBPTR) , Y 


VOLUME SWAP 


PLA 






CLC 




"UNSWAPPED" 


JSR 


FCB SCAN 




LDA 


DEVNUM 


MAKE SURE BIT MAPS 


JSR 


CLEARBMS 


ARE MARKED AS INVALID ON THIS DEVICE 


JSR 


RESTCBS 


RESTORE VCB, FCB PTRS 


CLC 




NO ERRORS 


RTS 






DS 


5 


A RARE EMBEDDED TEMP SAVE AREA, USED ONLY BY . . . 


EQU 




SAVE FCBPTR, VCBPTR IN A TEMP SAVE AREA 


LDA 


VCBPTR 




STA 


SAVEPTRS 




LDA 


VCBPTR+1 




STA 


SAVEPTRS+1 




LDA 


FCBPTR 




STA 


SAVEPTRS +2 




LDA 


FCBPTR+1 




STA 


SAVEPTRS +3 




LDA 


DEVNUM 




STA 


SAVEPTRS +4 




RTS 






EQU 


-k 


RESTORE FCBPTR, VCBPTR 


EXISTS 


A SEQUENCE OF CALLS (SWAPIN, WHICH MAY CALL SWAPOUT) THAT JSR'S TO SAVECBS ONCE BUT JSR'S RESTCBS 


LDA 


SAVEPTRS 




STA 


VCBPTR 




LDA 


SAVEPTRS+1 




STA 


VCBPTR+1 




LDA 


SAVEPTRS +2 




STA 


FCBPTR 




LDA 


SAVEPTRS +3 




STA 


FCBPTR+1 




LDA 


SAVEPTRS +4 




STA 


DEVNUM 




RTS 
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000156 


* MARK ALL FILES BELONGING TO A VOLUME 




000157 


* AS SWAPPED- 


IN OR SWAPPED-OUT. 




000158 










000159 


* INPUT ARCS 


DEVNUM — DEVICE NUMBER OF MOUNTED 


VOLUME 


000160 




A REGISTER 


- SWAP BYTE 




000161 


* 


CARRY — CARRY FLAG SET MEANS SWAP 


OUT; ELSE SWAP IN 


000162 










000163 


* OUTPUT ARG£ 


: NONE 






000164 


* GLOBALS AFFECTED : FCB, 


FCBPTR 




000165 


* REGISTER STATUS: SCRAMBLED 




000166 










000167 


FCBSCAN 


EQU 




MARK FILES BELONGING TO VOLUME AS SWAPPED 


000168 










000169 




TAX 




SAVE SWAP BYTE 


000170 




LDY 


FCBADDRH 


POINT TO 


000171 




STY 


FCBPTR+1 


BEGINNING TO FCB 


000172 




LDY 


#0 




000173 




STY 


FCBPTR 




000174 




BCS 


FCBOUT 


SWAP OUT A VOLUMES FILES 


000175 


FCBIN 


EQU 




SWAPIN A VOLUMES FILES 


000176 




JSR 


FCBFETCH 


GET NEXT ACTIVE FCB CANDIDATE 


000177 




BCS 


FCBRTS 


NO MORE FILES TO PROCESS 


000178 




LDY 


#FCBSWAP 




000179 




TXA 






000180 




CMP 


( FCBPTR) , Y 


SWAP BYTES MATCH? 


000181 




BNE 


FCBIN1 


BRANCH IF NOT 


000182 




LDA 


#0 




000183 




STA 


( FCBPTR) , Y 


MARK FILE AS SWAPPED IN 


000184 


FCBIN1 


JSR 


NEXT FCB 


ADVANCE FCB POINTER 


000185 




BCS 


FCBRTS 


NO MORE TO LOOK AT 


000186 




JMP 


FCBIN 


AND LOOK AT NEXT FILE 


000187 










000188 


FCBOUT 


EQU 




SWAPPED OUT A VOLUMES FILES 


000189 




JSR 


FCBFETCH 


GET NEXT ACTIVE FILE IN FCB 


000190 




BCS 


FCBRTS 


NO MORE FILES — RETURN TO USER 


000191 




LDY 


#FCBSWAP 


COMPARE 


000192 




LDA 


( FCBPTR) , Y 




000193 




BNE 


FCBOUT 1 


ALREADY SWAPPED OUT 


000194 




TXA 






000195 




STA 


( FCBPTR) , Y 


MARK AS SWAPPED 


000196 


FCBOUT1 


JSR 


NEXT FCB 


ADVANCE FCB POINTER 


000197 




BCS 


FCBRTS 




r\ n r\ *\ no 

000198 




JMP 


FCBOUT 


SWAP OUT NEXT FILE 


000199 










000200 


FCBRTS 


RTS 






000201 


FCBFETCH 


EQU 




GET NEXT ACTIVE FILE FROM FCB 


000202 


* X REGISTER 


MUST NOT BE 


DISTURBED 




000203 


* USES FCBPTR 






000204 




LDY 


#FCBDEVN 


MAKE 


000205 




LDA 


(FCBPTR) , Y 


SURE DEVICE 


000206 




CMP 


DEVNUM 


MATCHES 


n n n o n "~i 

00020 / 




BNE 


NEXT FCB 




000208 




LDY 


#FCBREFN 


MAKE SURE FILE IS ACTIVE 


000209 




LDA 


(FCBPTR) ,Y 




000210 




BEQ 


NEXT FCB 


BRANCH IF NOT 


000211 




CLC 






000212 




RTS 




RETURN WITH CARRY CLEAR SHOWING AN ACTIVE 


000213 


NEXT FCB 


LDA 


FCBPTR 




000214 




CLC 






000215 




ADC 


#$20 


FCB ENTRY SIZE 


n n n o i r 

000216 




STA 


FCBPTR 




000217 




BCC 


FCBFETCH 


BRANCH IF NO PAGE CROSS 


000218 




LDA 


FCBPTR+1 




000219 




INC 


FCBPTR+1 


SECOND PAGE 


000220 




CMP 


FCBADDRH 




000221 




BEQ 


FCBFETCH 


LOOK AT PAGE TWO 


000222 


NEXTEND 


SEC 






000223 




RTS 




SHOW NO MORE FILES TO LOOK AT 


000224 


USRREQ 


EQU 




OPERATOR CONSOLE MESSAGE INTERFACE 


000225 


* PRODUCES A 


MESSAGE REQUESTING 




000226 


* THE SYSTEM 


OPERATOR TO 


MOUNT THE VOLUME 




r\ r\ n 1 n i 
OU U2z / 


* SPECIFIED BY "VCBPTR" ON DEVICE SPECIFIED 




000228 


* BY DEVNUM . 


THIS MODULE 


INSISTS 




000229 


* UPON THE CORRECT OPERATOR ACTION 




000230 


* UPON THREE 


FAILURES TO 


COMPLY, 




000231 


* THE MODULE 


WILL SIGNIFY 


FAILURE WITH 




000232 


* CARRY SET. 


IF THE CORRECT ACTION IS TAKEN , 




000233 


* CARRY WILL 


BE RETURNED 


CLEAR 




000234 










000235 


* INPUT ARCS 


VOLUME NAME 


(VCBPTR) 




000236 




DEVICE NUMBER (DEVNUM) 
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000237 














000238 


* OUTPUT 


ARGS 


CC = OPERATOR COMPLIED WITH REQUESTED ACTION 


000239 


-k 






CS - OPERATOR COULDN'T/DIDN'T COMPLY 


000240 


* 












000241 


* GLOBALS AFFECTED : NONE 






000242 














000243 


* STATUS 


OF 


REGISTERS: UNCERTAIN 




000244 














000245 


VNML 






EQU 


ZPGTEMP 


VOLUME NAME LENGTH 


000246 








LDY 


#VCBNML 


IF ILLEGAL VCB 


000247 








LDA 


(VCBPTR) , Y 


GET OUT QUICK 


000248 








BEQ 


NEXTEND 


BRANCH TO SEC RTS 


000249 








LDX 


#$E 


LENGTH OF NAMED AREA- 1 


000250 








LDA 


#$0 


NULLS 


000251 


UR1 






STA 


MDEV, X 


BOTH CLEAR 


000252 








STA 


MVOL, X 


IN ONE LOOP 


000253 








DEX 






000254 








BPL 


UR1 




000255 














000256 


* DO A D 


-INFO 


TO FETCH THE 


DEVICE NAME 




000257 














000258 








LDA 


#5 


DO ALL 


000259 








STA 


$C0 


NECESSARY 


000260 








LDA 


DEVNUM 


HOUSKEEPING 


r\ n n o r *\ 

0002 61 








STA 


$ci 


TO SET UP 


0002 62 








LDA 


#>MDEV-1 


A DEVICE MANAGER CALL 


000263 








STA 


$C2 




000264 








LDA 


#<MDEV-1 




000265 








STA 


$C3 




000266 








LDA 


#$8F 


EXTEND BYTE 


000267 








STA 


S14C3 




000268 








LDA 


#0 




000269 








STA 


$14C2 




000270 








STA 


$C4 




000271 








STA 


$C5 




000272 








STA 


$C6 


ZERO SUPERFLUOUS PARMS 


000273 








STA 


URDERR 


RESET FAILURE COUNT 


000274 








JSR 


RPEATIO0 


GET INFO FROM BOBS CODE 


000275 








LDA 


#$20 


"SPACE " RESTORED 


000276 








STA 


MDEV- 1 


RESTORED 


000277 








LDY 


#VCBNML 




000278 








LDA 


(VCBPTR) , Y 




000279 








STA 


VNML 


SAVE D FOR WORK 


000280 








LDA 


#0 




000281 








TAX 






000282 








LDY 


#VCBNAM 


POINT TO BEGINNING OF VOLUME NAME 


000283 


UR2 






LDA 


(VCBPTR) , Y 




000284 








STA 


MVOL, X 




000285 








I NX 






000286 








I NY 




VOLUME NAME MOVE D 


000287 








DEC 


VNML 


TO MESSAGE BUFFER 


000288 








BNE 


UR2 


CHARACTER BY CHARACTER 


000289 


URDU 






LDX 


#>UMB 


PASS THE AREA'S ADDR 


000290 








LDY 


#<UMB 


IN X AND Y REGS, LOW, HIGH) 


000291 








JSR 


OPMSGRPLY 


HAVE ME S SAGE SYSTEM PRINT I T 


000292 








JSR 


VERFYVOL 


DID THE USER COMPLY? 


000293 








BCS 


URDU1 


BRANCH IF NOT 


000294 








RTS 




T7VTT 7\ "D"D V TO PT T?AD 

bAl 1 CAKKY lb CJ-ibAK 


000295 


URDU1 






INC 


URDERR 


COLLECT USER ERRORS 


000296 








LDA 


URDERR 




r\ n n o n i 

0002 97 








CMP 


#3 


ONLY THREE TRIES ALLOWED 


000298 








BCC 


URDU 


RETRY MESSAGE IF LESS THAN THREE TRIES 


000299 








RTS 




OTHERWISE RETURN WITH CARRY SET 


000300 














000301 














000302 














000303 














000304 


-k 












000305 


* CLOSE 


UNCONDITIONAL 






000306 














000307 


* (USER 


HAS 


REPLIED 'N' TO 


A VOLUME MOUNT REQUEST 


000308 


* CLOSE 


ALL 


FILES ON VOLUME/UNLOG VOLUME 




000309 














000310 


* INPUT 


ARGUMENT : (VCBPTR) 






000311 


* OUTPUT 


ARGUMENT: NONE 






000312 














000313 


CLOSEU 






EQU 






000314 


VSWA 






EQU 


ZPGTEMP 


THE 'SWAP BYTE' STORED HERE 


000315 








LDY 


#VCBDEV 


FETCH 


000316 








LDA 


(VCBPTR) , Y 


THE DEVICE NUMBER 


000317 








STA 


DEVNUM 


OF THIS VOLUME & SAVE IT 
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000318 




LDY 


#VCBSWAP 


FETCH THE 


000319 




LDA 


(VCBPTR) , Y 


SWAP BYTE 


000320 




STA 


VSWA 


SAVE FOR REFERENCE, TOO 


n n r\ o n t 

000321 




LDA 


#0 




n n n o n n 

000322 




LDY 


#VCBNML 


UNLOG THE VOLUME 


n n n o n o 

000323 




STA 


(VCBPTR) , Y 


BY SETTING LEN OF VOL NAME TO ZERO 


n n n o n /i 

000324 




LDY 


#VCBSWAP 




000325 




STA 


(VCBPTR) , Y 


TURN OFF SWAP FLAG 


n n n i n r 
000326 




LDY 


FCBADDRH 


SET UP FCB SCAN FROM BEGINNING OF FCB 


000327 




STY 


FCBPTR+1 




n n r\ o n o 

000328 




LDY 


#0 




n n n o n n 

000329 




STY 


FCBPTR 




n n n o o n 

000330 


VFCBLOP 


LDY 


#FCBDEVN 


FETCH 


000331 




LDA 


(FCBPTR) , Y 


THE DEVICE 


n n r\ o ^ n 

000332 




CMP 


DEVNUM 


NUMBER AND SEE IF A MATCH 


UU U J J o 




BNE 




T3 "D 7\ "M^TJ TT7 1 T,"T/"> T*^7\ T^TJ 

BKAlMCn It W(J JMAlOri 


n n n o o /i 

000334 




LDY 


#FCBREFN 


SEE EVEN IF FILE OPEN 


000335 




LDA 


(FCBPTR) , Y 




000336 




BEQ 


VFCBNXT 


BRANCH IF NOT 


n n n *3 o ~7 
00033 / 




LDY 


# FCB SWAP 


CHECK TO SEE IF ATTACHED 


n n n o o o 

000338 




LDA 


(FCBPTR) , Y 


TO SAME VOLUME 


nn n "3 "3 n 
000339 




CMP 


VSWA 




000340 




BNE 


VFCBNXT 


BRANCH IF NOT 


n n n o /i t 

000341 




LDY 


#FCBBUFN 


RELEASE 


000342 




LDA 


(FCBPTR) , Y 


ANY 


000343 




JSR 


RELBUF 


BUFFERS ASSOCIATED 


000344 




LDY 


#FCBSWAP 


AND CLEAR 


000345 




LDA 


#0 


THE SWAP BYTE 


000346 




STA 


(FCBPTR) , Y 




000347 




LDY 


#FCBREFN 


AND FINALLY 


n n n i a o 
00034t3 




STA 


( FCBPTR) , Y 


SAY ' CLOSED ' 


n n n o /i n 

000349 


VFCBNXT 


LDA 


FCBPTR 




n n n c n 

000350 




CLC 






n n n o c i 

000351 




ADC 


#$20 


FCB ENTRY SIZE 


000352 




STA 


FCBPTR 




000353 




BCC 


VFCBLOP 




000354 




LDA 


FCBPTR+1 




000355 




INC 


FCBPTR+1 


LOOK AT SECOND PAGE 


n n n o c 

000356 




CMP 


FCBADDRH 




n n n o c "~7 

000357 




BEQ 


VFCBLOP 


CHECK PAGE TWO OF FCB 


n n n o c o 

000358 




RTS 




RETURN TO USER W/O ERROR 


n n n o c n 

000359 










n n n o r~ n 

000360 


FCBUSED 


EQU 




MARK AS FCB AS DIRTY SO 


000361 


* THE DIRECTORY 


WILL BE 


FLUSHED ON 'FLUSH' 




000362 




STY 


ZPGTEMP 




000363 




PHA 




SAVE REGS 


000364 




LDY 


#FCBDIRTY 




n n n o ^ c 

000365 




LDA 


(FCBPTR) , Y 


FETCH CURRENT FCBDIRTY BYTE 


n n n o r~ /~ 

000366 




ORA 


#FCBMOD 


MARK FCB AS DIRTY 


n n n o r ~7 

00036 / 




STA 


(FCBPTR) , Y 


SAVE IT BACK 


n n n o ^ o 

000368 




PLA 






n n n "3 r n 
000369 




LDY 


ZPGTEMP 


AND RESTORE REGS 


n n n o t n 

000370 




RTS 






000371 










000372 


URDERR 


DS 


1 


ERROR COUNT FOR USRREQ 


000373 










000374 










000375 


UMB 


EQU 


-k 




000376 




DFB 


$4 9, $6E, $73, $65, $72, $74, $20 


000377 




DFB 


$76, $6F, $6C, $75, $6D, $65 


n n n 3 ~7 o 
0003 /8 




DFB 


$3A, $20 


"INSERT VOLUME: " 


000379 


MVOL 


DS 


15 




000380 




DFB 


$0D 


CR LINE TERMINATOR 


n n n 3 o i 
000381 




DFB 


$20, $20, $20, $20, $69, $6E, $20 


n n r\ o o o 

000382 




DFB 


$64, $65, $76, $69, $63, $65 


n n n o o o 

000383 




DFB 


$3A, $20 


IN DEVICE: " 


n n n o o /i 

000384 


MDEV 


DS 


15 




n n n o n it 

000385 




DFB 


$0D 


CR LINE TERMINATOR 


n n n o n 

000386 




DFB 


$74, $68, $65, $6E, $20, $70, $72 


n n n 3 o n 
00038 / 




DFB 


$65, $73, $73, $20, $74,$ 


58, $65, $20 


000388 




DFB 


$41, $4C, $50, $48, $41, $20, $4C 


000389 




DFB 


$4F, $43, $4B, $20, $6B, $65, $7 9 


000390 




DFB 


$20, $74, $77, $69, $63, $65 


000391 


* "THEN PRESS THE ALPHA 


LOCK KEY TWICE" 




000392 


* FOLLOWED WITH 


$FF MESSAGE TERMINATOR (HIGH BIT 


SIGNIFICANT) 


000393 




DFB 


$FF 


MESSAGE TERMINATOR (HIGH BIT) 


000394 


-k 








000395 


ZZLEN 


EQU 


*-ZZORG 




000396 


ZZEND 


EQU 


-k 




000397 




IFNE 


ZZLEN-LENBFM 




000398 




FAIL 


2 / "SOSORG FILE IS INCORRECT FORMBFM" 
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000399 FIN 
000400 

000401 ************************************************************************* 

000402 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SWAPOUT . IN 

000403 ************************************************************************* 
000404 



End of File — Lines: 404 Characters: 15080 
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FILE : "SOS. SYSERR. SRC. TEXT" 



000001 


******************************************************************** 


r\ n n r\ n o 

000002 


* 


APPLE /// SOS 


1.3 SOURCE CODE FILE: SYSERR. SRC 


000003 










000004 


* 


ASSEMBLER: APPLE ] [ 65 


32 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 










000006 






SBTL 


"SOS 1.1 SYSTEM ERROR ROUTINES" 


00000 / 






REL 




000008 






INCLUDE 


SOSORG, 6,1,254 


000009 






ORG 


ORGSERR 


000010 


ZZORG 


EQU 


* 


000011 






MSB 


OFF 


000012 






REP 


60 


000013 




COPYRIGHT (C) 


APPLE COMPUTER INC. 1980 


000014 






ALL 


RIGHTS RESERVED 


000015 






REP 


60 


000016 










000017 




SYSTEM ERROR 


ROUTINES 


(VERSION =1.10 ) 


000018 


* 






(DATE = 12/02/81) 


000019 


* 








000020 


* 


THIS MODULE CONTAINS THE SYSTEM ERROR AND SYSTEM FAILURE ROUTINES. 


000021 


* 








000022 






REP 


60 


000023 


* 








000024 






ENTRY 


SYSERR 


r\ r\ r\ r\ *~> c 

000025 






ENTRY 


SYSDEATH 


r\ r\ r\ r\ r 

000026 


* 








000027 






EXTRN 


SERR 


r\ r\ r\ r\ *~> n 

000028 






EXTRN 


S DEATH. REGS 


r\ r\ r\ r\ *~> n 

000029 






EXTRN 


SCRNMODE 


000030 






PAGE 




000031 






REP 


60 


000032 


* 








000033 


* 


DATA DECLARATIONS 




r\ n n r\ o /i 

000034 


* 








000035 






REP 


60 


000036 


* 








r\ n n r\ o ^ 

00003 / 


E 


REG 


EQU 


$FFDF 


000038 


Z 


REG 


EQU 


$FFD0 


000039 


B 


REG 


EQU 


$FFEF 


000040 










000041 


S 


SAVE 


EQU 


$09 ; REGISTER SAVE AREA 


000042 


PCH . SAVE 


EQU 


$08 


000043 


PCL . SAVE 


EQU 


$07 


000044 


P 


SAVE 


EQU 


$06 


000045 


A 


SAVE 


EQU 


$05 


000046 


X 


SAVE 


EQU 


$04 


000047 


Y 


SAVE 


EQU 


$03 


000048 


E 


SAVE 


EQU 


$02 


000049 


Z 


SAVE 


EQU 


$01 


000050 


B 


SAVE 


EQU 


$00 


000051 


* 








000052 


NMI . VECTOR 


EQU 


$FFFA 


000053 


* 








000054 


TXT . CLR 


EQU 


$C050 


000055 


MIX.CLR 


EQU 


$C052 


000056 


HIRES. CLR 


EQU 


$C056 


000057 


* 








000058 


PG2 . CLR 


EQU 


$C054 


000059 










000060 


MSGBASE 


EQU 


$7E4 


OUUUdI 


MSGBASE2 


EQU 


$BE4 


000062 


MSG 


ASC 


1 SYSTEM FAILURE = $ ' 


000063 


MS GLEN 


EQU 


*-MSG 


000064 






PAGE 




000065 






REP 


60 


000066 


* 








000067 


* 


SYSTEM ERROR 


ROUTINE 




000068 










000069 




THIS ROUTINE 


IS CALLED 


WHEN AN ERROR CONDITION HAS BEEN 


000070 


* 


ENCOUNTERED. 


THE ERROR NUMBER IS PASSED IN THE A REG 


000071 


* 


AND THE CALL 


TO THIS ROUTINE MUST ALWAYS BE A JSR. 


000072 


* 








000073 






REP 


60 


000074 


SYSERR 


EQU 


* 


000075 


* 








000076 






STA 


SERR 
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000077 






PLA 








000078 






STA 


S DEATH . REGS+PCL . SAVE 




000079 






PLA 








000080 






STA 


S DEATH . REGS+PCH . SAVE 




000081 






SEC 








000082 






LDA 


SERR 






r\ n n r\ o o 

00008 3 






BNE 


SERR.EXIT 






000084 






CLC 








000085 


SERR.EXIT 




RTS 






RETURNS ONE LEVEL BEYOND CALLER 


000086 






PAGE 








000087 






REP 


60 






000088 














000089 


* SYSTEM 


DEATH 


ROUTINE 








000090 














000091 


* CALLED 


TO IMMEDIATELY 


TERMINATE EXECUTION OF THE MACHINE 


000092 


* BECAUSE 


A FATAL ERROR 


HAS BEEN DETECTED BY THE 


OPERATING 


000093 


* SYSTEM. 


THE 


ERROR CODE IS PASSED IN THE A REG 


THE 


000094 


* CALL TO 


THIS 


ROUTINE MUST ALWAYS BE A JSR. 




000095 














000096 






REP 


60 






000097 


SYSDEATH 




EQU 


* 






000098 














000099 






STA 


SDEATH . REGS+A 


SAVE 


SAVE REGISTERS 


000100 






STX 


S DEATH. REGS+X 


SAVE 




000101 






STY 


SDEATH. REGS+Y 


SAVE 




000102 






PHP 








000103 






PLA 








000104 






STA 


SDEATH. REGS+P 


SAVE 




000105 






TSX 








000106 






STX 


SDEATH. REGS+S 


SAVE 




000107 






LDA 


E.REG 






000108 






STA 


SDEATH. REGS+E 


SAVE 




000109 






LDA 


Z .REG 






000110 






STA 


SDEATH. REGS+Z 


SAVE 




000111 






LDA 


B.REG 






000112 






STA 


SDEATH. REGS+B 


SAVE 




000113 






PLA 








000114 






STA 


SDEATH . REGS+PCL . SAVE 




000115 






PLA 








000116 






STA 


SDEATH . REGS+PCH . SAVE 




000117 














000118 






SEI 






TURN OFF INTERRUPTS 


000119 






CLD 








000120 














000121 






LDX 


#0 




SAVE SYSTEM STACK PAGE IN PAGE $17 


000122 


SD005 




LDA 


$100, X 






000123 






STA 


$1700, X 






000124 






DEX 








000125 






BNE 


SD005 






000126 














000127 






LDA 


$C059 




ENSURE SILENTYPE PORT SHUT DOWN 


000128 






LDA 


$C0DD 






000129 






LDA 


$C0DF 






000130 






LDA 


$C05F 






000131 






LDA 


$C05A 






000132 














000133 






LDA 


$C040 




SOUND BELL 


000134 














000135 






LDA 


#$74 




ENSURE RESET LOCK OFF S RAM SWITCHED IN 


000136 






STA 


E.REG 






000137 














000138 






LDA 


TXT . CLR 




SWITCH TO 40 COL BSW DISPLAY MODE 


000139 






LDA 


MIX.CLR 






000140 






LDA 


HIRES. CLR 






000141 






LDA 


PG2 . CLR 




S SELECT PAGE 1 


000142 














000143 






LDA 


#$02 






000144 






BIT 


SCRNMODE 






000145 






BVS 


SD015 




IF GRAPHICS MODE THEN KEEP 40 COL MODE 


000146 






BEQ 


SD015 




IF 40 COL MODE THEN KEEP 


000147 






LDA 


MIX.CLR+1 




ELSE SWITCH TO 80 COL DISPLAY MODE 


000148 














000149 






LDX 


#MSGLEN+1 




ENSURE BKGRND SET TO INVERSE SPACES 


000150 






LDA 


#$20 




SPACE CHAR W/ INVERSE 


000151 


SD010 




STA 


MSGBASE2-1,X 






000152 






DEX 








000153 






BPL 


SD010 






000154 


* 












000155 


SD015 




LDX 


#0 




MOVE MSG TO TEXT SCREEN 


000156 


SD020 




LDA 


MSG,X 






000157 






STA 


MSGBASE-1,X 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 



SD100 



I NX 
CPX 
BNE 

LDA 
CLC 
LSR 
LSR 
LSR 
LSR 
JSR 
I NX 
LDA 
AND 
JSR 

LDA 
STA 
LDA 
STA 



JMP 
REP 
RTI 



* PRINT SUBROUTINE 



EQU 
CMP 
BCS 
ADC 
BCC 
ADC 
STA 
RTS 



PRNT100 
PRNT110 



ZZEND 
ZZLEN 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



#MSGLEN 
SD020 

SDEATH . REGS+A . SAVE 

A 
A 

A 
A 

PRINT 

SDEATH . REGS+A . SAVE 

#$0F 

PRINT 

#>SD100 
NMI .VECTOR 
#<SD100 
NMI .VECTOR+1 



60 



DISPLAY ERROR CODE (2 HEX DIGITS) 



FIRST DIGIT 



; SECOND DIGIT 



HANG UNTIL REBOOT (CTRL/RESET) 

NMI VECTOR POINT HERE TO MASK THEM OUT 



#$A 

PRNT100 
#$30 
PRNT110 
#$36 

MSGBASE-1, 



ON 
* 

ZZEND-ZZORG 
ZZLEN-LENSERR 
2, "SOSORG 



"0"-"9" 

ALWAYS TAKEN 
" A "_" F " 



FILE IS INCORRECT FOR SYSERR" 



******************** 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SYSERR. SRC 

************************************************************************* 



End of File 



Lines: 206 Characters: 5264 
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FILE : "SOS. SYSGLOB. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 
* APPLE /// SOS 1.3 SOURCE CODE FILE: SYSGLOB. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 
ORG 
MSB 
REP 



"SOS 1.1 GLOBAL EQUATES" 



$18FC 
OFF 
60 

COPYRIGHT (C) APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 
REP 60 

SOS SYSTEM GLOBAL DATA S EQUATES 

THIS MODULE CONTAINS THE SOS JUMP TABLE, AND ALL GLOBAL 
DATA AND EQUATES. THE JUMP TABLE, AND ALL DATA THAT IS 
TO BE REFERENCED BY DEVICE HANDLERS, ARE ASSIGNED FIXED 
ADDRESSES AT THE BEGINNING OF MEMORY PAGE $19. DATA 
THAT IS ONLY REFERENCED BY SOS BEGINS $1980, BUT MAY BE 
MOVED WHENEVER SOS IS RELINKED. 



REP 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 



60 

ALLOCS IR 

DEALCSIR 

NMIDSBL 

NMIENBL 

QUEEVENT 

SELC800 

SYSDEATH 

SYSERR 

REQBUF 

GETBUFADR 

RELBUF 

NMIDBUG 

NMICONT 

COLDSTRT 



MEMSIZE 

SYSBANK 

SUSPFLSH 

NMI FLAG 

SCRNMODE 

GRSIZE 

SERR 

DBUGBRK 

KYBDNMI 

NMISPSV 

S DEATH. REGS 

SOSVER 
SOSVERL 

SZPAGE 
SXPAGE 
SSPAGE 

CZPAGE 
CXPAGE 
CSPAGE 
CEVPRI 

SIRTEMP 

SIRARGSIZ 

IRQCNTR 

NMICNTR 

QEVTEMP 

QEV.THIS 

QEV.LAST 

BADBRK 
BADINT1 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



PAGE 
DW 



BADINT2 

NMIHANG 

EVQOVFL 

STKOVFL 

BADSYSCALL 

DEV.OVFLOW 

MEM2SML 

VCBERR 

FCBERR 

ALCERR 

DIRERR 

TOOLONG 

BADBUFNUM 

BADBUFSIZ 

BITMAP ADR 

BADSCNUM 

BADCZPAGE 

BADXBYTE 

BADSCPCNT 

BADSCBNDS 

NODNAME 
BADDNUM 

BADPATH 

CFCBFULL 

FCBFULL 

BADREFNUM 

PATHNOTFND 

VNFERR 

FNFERR 

DUPERR 

OVRERR 

DIRFULL 

CPTERR 

TYPERR 

EOFERR 

POSNERR 

ACCSERR 

BTSERR 

FILBUSY 

NOTSOS 

BADLSTCNT 

OUTOFMEM 

BUFTBLFULL 

BADSYSBUF 

DUPVOL 

NOTBLKDEV 

LVLERR 



BADBKPG 

SEGRQDN 

SEGTBLFULL 

BADSEGNUM 

SEGNOTFND 

BADSRCHMODE 

BADCHGMODE 

BADPGCNT 

XREQCODE 

XCTLCODE 

XCTLPARM 

XNOTOPEN 

XNOTAVAIL 

XNORESRC 

XBADOP 

XIOERROR 

XNODRIVE 

XNOWRITE 

XBYTECNT 

XBLKNUM 

XDISKSW 

BACKMASK 



E1908 



; MASK BYTE FOR BACKUP BIT. 

; DISK DRIVER IS READING/WRITING (SET) ELSE NOT (RESET) 
;SYSGLOB TARGET ADDRESS 
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UUUloo 




DW 


$0100 


; AND LENGTH 




n n n i co 

uuuioy 












nn m r n 
UUUl 6U 


* SYSTEM GLOBAL DATA 








UUU161 


* (ACCESSIBLE TO SOS AND DEVICE HANDLERS) 






n n n i r o 

UUUl 62 












n n n i r o 

UUU16 J 


SYSGLOB 


EQU 








n n n i c yi 
UUUl 64 












UUU165 


MEMS I ZE 


DFB 


$08 


;MEMORY SIZE = 128K 




UUUl 66 


SYSBANK 


DFB 


$02 


; SYSTEM BANK = 2 




n n n i r"~i 
UU U 1 6 / 


SUSPFLSH 


DFB 


$00 


; SYSOUT SUSPEND/FLUSH FLAG 




n n n i r o 
UUUl 6o 


NMIFLAG 


DFB 


$00 


; NMI PENDING FLAG 




n n n i r n 

uuui6y 




DW 


NMIEXIT 


; DEFAULT NMI VECTOR 




n n n i o n 

UUUl /u 


SCRNMODE 


DFB 


$80 


; CURRENT SCREEN MODE 




n n n i n 
UUUl /I 


GRSIZE 


DFB 


$00 






n n n i to 

UUUl I z 












UUUl / J 












n n n i n a 
UUUl / 4 


* SOS JUMP 


TABLE 








UUU175 












n n n i n r 

UUUl /b 




DS 


SYSGL0B+$ 10-* , $00 


; USED BY THE MOUSE DRIVER 




UU Ul 77 


USERNMI 


JMP 


NMIEXIT 


/KlLIBUAKD NMI VECIOK 




n n n i to 
UUUl lo 




JMP 


ALLOCS IR 


/ALLOCATE A SIR 




n n n i to 

uuui /y 




JMP 


DEALCSIR 


/DEALLOCATE A SIR 




n n n i on 
UUUloU 




JMP 


NMIDSBL 


; DISABLE NMI 




n n n t on 

UUUlol 




JMP 


NMIENBL 


; ENABLE NMI 




n n n i o o 
UUUloZ 




JMP 


QUEEVENT 


; QUEUE AN EVENT 




n n n i o o 
UUUloo 




JMP 


SELC800 


; SELECT I/O EXPANSION ROM 




n n n i o yi 
UUUlo4 




JMP 


SYSDEATH 


; SYSTEM DEATH 




n n n i o iz 
UUUloo 




JMP 


SYSERR 


," SOS ERROR 




n n n i or 
UUUloo 




JMP 


REQBUF 


/REQUEST BUFFER 




UUU187 




JMP 


GETBUFADR 


;GET BUFFER'S ADDRESS 




n n n i o o 
UUUloo 




JMP 


RELBUF 


; RELEASE BUFFER 




n n n i on 

uuuioy 




JMP 


CLRBMASK 


; VECTOR TO CLRBMASK 




n n n i n n 

uuui yu 




PAGE 








n n n i n i 

uuui yi 












n n n i no 

uuuiyz 


* SOS DATA 


AND EQUATES 






n n n i n 

uuuiyj 


* (ACCESSIBLE ONLY 


TO SOS) 






n n n i n a 

uuuiy4 












n n n i n iz 

uuui yo 




DS 


SYSGLOB+$80-*, $00 






n n n i c\r 

uuui yb 


SERR 


DFB 


$00 


; SYSTEM ERROR CODE 




n n n i m 

uuuiy / 












n n n t no 

uuui yo 


DBUGBRK 


NOP 




;TO ENABLE DEBUG BREAK POINTS, 




n n n t n n 

uuuiyy 




PLA 




; PATCH THESE BYTES TO 




n n n o n n 
UUUzUU 




PLA 




; JMP TO THE DEBUGGER 




n n n o n i 
UUUzUl 




RTS 








n n n o n o 
UUUzUz 












n n n o n o 
UUUzUo 


KYBDNMI 


JMP 


USERNMI 






UUU2U4 




JMP 


NMIDBUG 






n n n o n c 
UUUzUo 


NMISPSV 


DFB 









n n n o n /T 
UU UZ U D 




JMP 


NMICONT 






n n n o n "7 
UUU2U / 


NMIEXIT 


RTS 








n n n o n o 
UUUzUo 












n n n o n n 

uu uz u y 












n n n o t n 
UU Uz 1 U 


SOSVER 


ASC 


"SOS 1.3 01-DEC- 


32" 




n n n o i i 
UUUzll 


SOSVERL 


EQU 


*-SOSVER 






n n n o t o 
UU Uz 1Z 












n n n o t o 

UUUzlo 




ASC 


" (C) 1980, 1981 BY 


APPLE COMPUTER INC . " 




n n n o i a 
UU Uz 14 












n n n o i c 
UUUzlo 


E1908 


EQU 


$1908 


; ALLOCATED TO STEPHEN SMITH (MOUSE 


DRIVER) 


n n n o i r 

UUUzlb 


* ABOVE SET 


AND RESET 


IN DISK DRIVER 






n n n o i i 
UUUzl / 


SZPAGE 


EQU 


$1800 


; SYSTEM ZERO PAGE 




n n n o i o 
UUUzlo 


SXPAGE 


EQU 


$1400 


; SYSTEM EXTEND PAGE 




n n n o i n 

uuuziy 


SSPAGE 


EQU 


$0100 


; SYSTEM STACK PAGE 




n n n o o n 
UUUzzU 












r\ n r\ i n ~\ 
UU UZZ 1 


CZPAGE 


EQU 


$1A00 


; CALLER'S ZERO PAGE 




n n n o o o 
UU UzZZ 


CXPAGE 


EQU 


$1600 


; CALLER'S EXTEND PAGE 




n n n o o o 
UUUzzo 


CSPAGE 


EQU 


$1B00 


; CALLER'S STACK PAGE 




n n n o o yi 
UU UzZ4 


CEVPRI 


DFB 


$00 


; CALLER'S EVENT PRIORITY 




n n n o o c 
UUUzzo 












n n n o o r 


SIRTEMP 


DFB 


$00 


; TEMP FOR ALLOCSIR & DEALCSIR 




nn n 1 1 "7 
00 022 / 


SIRARGSIZ 


DFB 


$00 


; ARGUMENT COUNT FOR ALLOCSIR S DEALCSIR 


n n n o 1 o 
000228 


IRQCNTR 


DW 


$0000 


/FALSE IRQ COUNTER 




000229 


NMICNTR 


DW 


$0000 


/COUNTER FOR NMI LOCK 




000230 


QEVTEMP 


DFB 


$00 


; TEMP FOR QUEEVENT 




000231 


QEV.THIS 


DFB 


$00 


/POINTER FOR QUEEVENT 




000232 


QEV.LAST 


DFB 


$00 


/POINTER FOR QUEEVENT 




000233 












000234 


SOSQUIT 


DS 


COLDSTRT 






000235 


BACKMASK 


DFB 


BACKBIT 


/ MASK USED BY BFM TO UPDATE BACKUP 


BIT 


000236 












000237 


* TO CLEAR 


THE BACKUP 


BIT, A PROGRAM MUST JSR 


TO CLRBMASK THRU 1934 THEN DO A 




000238 


* SET-FILE - 


INFO WITH NO INTERVENING SOS CALLS 


. ANY SOS CALL WILL 
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000239 


* SET BACKMASK AGAIN. THIS FEATURE IS 


INTENTIONALLY LEFT UNDOCUMENTED. 


000240 












000241 


CLRBMASK 




AND 


fBACKBIT 


; PURIFY 


000242 






STA 


BACKMASK 


; SET THE MASK 


000243 






RTS 




; AND BACK TO THE CALLER 


000244 






PAGE 






000245 












000246 


* SYSTEM 


DEATH 


REGISTER 


SAVE AREA 




000247 


* (SYSTEM 


STACK 


MOVED TO 


$1700-$17FF) 




000248 












000249 






DS 


SYSGLOB+$F6- 


* , $00 


000250 


S DEATH. REGS 


EQU 






000251 






DFB 


$00 


; BANK 


000252 






DFB 


$00 


; ZERO PAGE 


000253 






DFB 


$00 


; ENVIRONMENT 


000254 






DFB 


$00 


; Y 


000255 






DFB 


$00 


; x 


000256 






DFB 


$00 


; A 


000257 






DFB 


$00 


; STATUS 


000258 






DW 


$00 


; PROGRAM COUNTER 


000259 






DFB 


$00 


; STACK POINTER 


000260 












000261 


* SYSTEM 


DEATH 


ERROR NUMBERS 




000262 












000263 


BADBRK 




EQU 


$01 


; BRK FROM SOS 


0002 64 


BADINT1 




EQU 


$02 


; INTERRUPT NOT FOUND 


000265 


BADINT2 




EQU 


$03 


;BAD ZERO PAGE ALLOCATION 


000266 


NMIHANG 




EQU 


$04 


; UNABLE TO LOCK NMI 


000267 


EVQOVFL 




EQU 


$05 


; EVENT QUEUE OVERFLOW 


000268 


STKOVFL 




EQU 


$06 


; STACK OVERFLOW 


000269 












000270 


BADSYSCALL 




EQU 


$07 


; DMGR DETECTED INVALID REQUEST CODE 


000271 


DEV . OVFLOVi 




EQU 


$08 


;DMGR - TOO MANY DEVICE HANDLERS 


000272 


MEM2 SML 




EQU 


$09 


;MEMORY SIZE < 64K 


000273 


VCBERR 




EQU 


$0A 


;VOLUME CONTROL BLOCK NOT USABLE (BFMGR) 


000274 


FCBERR 




EQU 


$0B 


; FILE CONTROL BLOCK CRASHED 


000275 


ALCERR 




EQU 


$0C 


/ALLOCATION BLOCKS INVALID 


000276 


TOOLONG 




EQU 


$0E 


; PATHNAME BUFFER OVERFLOW 


000277 


BADBUFNUM 




EQU 


$0F 


/INVALID BUFFER NUMBER 


000278 


BADBUFS I Z 




EQU 


$10 


; INVALID BUFFER SIZE (=0 OR >16K) 


000279 






PAGE 






000280 












000281 


* SYSTEM 


ERROR 


NUMBERS 






000282 












000283 


* - SYSTEM 


CALL 


MANAGER 






000284 












000285 


BADSCNUM 




EQU 


$01 


;BAD SYSTEM CALL NUMBER 


000286 


BADCZPAGE 




EQU 


$02 


;BAD CALLER'S ZPAGE (MUST-$1A) 


000287 


BADXBYTE 




EQU 


$03 


;BITS 6 . . 4 <> 


000288 


BADSCPCNT 




EQU 


$04 


;BAD SYSTEM CALL PARM COUNT 


r\ n n o o n 

000289 


BADSCBNDS 




EQU 


$05 


; SYS CALL PARM ADR 


0002 90 












000291 


* - DEVICE 


MANAGER 






000292 












000293 


NODNAME 




EQU 


$10 


; DEVICE NAME NOT FOUND 


000294 


BADDNUM 




EQU 


$11 


/INVALID DEV.NUM PARM 


000295 












000296 


* - DEVICE 


HANDLERS (STANDARD ERRORS) 




000297 












000298 


XREQCODE 




EQU 


$20 


; INVALID REQUEST CODE 


0002 99 


XCTLCODE 




EQU 


$21 


/INVALID CONTROL/STATUS CODE 


000300 


XCTLPARM 




EQU 


$22 


; INVALID CONTROL/STATUS PARM 


000301 


XNOTOPEN 




EQU 


$23 


; DEVICE NOT OPEN 


000302 


XNOTAVAIL 




EQU 


$24 


; DEVICE NOT AVAILABLE 


000303 


XNORESRC 




EQU 


$25 


; UNABLE TO OBTAIN RESOURCE 


000304 


XBADOP 




EQU 


$26 


; INVALID OPERATION 


000305 


XIOERROR 




EQU 


$27 


;I/0 ERROR 


000306 












000307 


XNODRIVE 




EQU 


$28 


; NO DRIVE CONNECTED 


000308 


XNOWRITE 




EQU 


$2B 


; DEVICE WRITE PROTECTED 


000309 


XBYTECNT 




EQU 


$2C 


;BYTE COUNT <> A MULTIPLE OF 512 


00U31U 


XBLKNUM 




EQU 


$2D 


; BLOCK NUMBER TOO LARGE 


000311 


XDISKSW 




EQU 


$2E 


;DISK MEDIA HAS BEEN SWITCHED 


000312 












000313 


* - NOTE : 


ERROR 


CODES $30 


-$3F HAVE BEEN 


RESERVED FOR DEVICE 


000314 


* HANDLER SPECIFIC ERRORS 




000315 












000316 












000317 


* - FILE MANAGER 






000318 












000319 


BADPATH 




EQU 


$40 


/PATHNAME, INVALID SYNTAX 
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000320 


CFCBFULL 


EQU 


$41 


CHAR FILE CTRL BLOCK TABLE FULL 


000321 


FCBFULL 


EQU 


$42 


BLOCK FILE CTRL BLOCK TABLE FULL 


r\ n n o n o 

000322 


BADREFNUM 


EQU 


$43 


INVALID REF.NUM PARM 


0U0323 


PATHNOTFND 


EQU 


$44 


PATHNAME NOT FOUND 


r\ n n o n /i 

000324 


VNFERR 


EQU 


$45 


VOLUME NOT FOUND 


r\ n n o n c 

000325 


FNFERR 


EQU 


$4 6 


FILE NOT FOUND 


r\ n n o n ^ 

000326 


DUPERR 


EQU 


$47 


DUPLICATE FILE NAME ERROR 


000327 


OVRERR 


EQU 


$48 


NOT ENOUGH DISK SPACE FOR PREALLOCATION 


000328 


DIRFULL 


EQU 


$4 9 


DIRECTORY FULL ERROR 


000329 


CPTERR 


EQU 


$4A 


FILE INCOMPATIBLE SOS VERSION 


000330 


TYPERR 


EQU 


$4B 


NOT CURRENTLY SUPPORTED FILE TYPE 


r\ n n o o t 

000331 


EOFERR 


EQU 


$4C 


POSITION ATTEMPTED BEYOND END OF FILE 


r\ n n o ^ o 

000332 


POSNERR 


EQU 


$4D 


ILLEGAL POSITION (L.T. OR G.T. $FFFFFF) 


r\ n n o ^ o 

000333 


ACCSERR 


EQU 


$4E 


FILE ACCESS R/W REQUEST CONFLICTS WITH ATTRIBUTES 


r\ n n o ^ /i 

000334 


BTSERR 


EQU 


$4F 


USER SUPPLIED BUFFER TOO SMALL 


r\ n n o o c 

000335 


FILBUSY 


EQU 


$50 


EITHER WRITE WAS REQUESTED OR WRITE ACCESS ALREADY 


r\ n n o o ^ 

000336 


DIRERR 


EQU 


$51 


DIRECTORY ERROR 


r\ n n o ^ ^ 

000337 


NOTSOS 


EQU 


$52 


NOT A SOS DISKETTE 


000338 


BADLSTCNT 


EQU 


$53 


INVALID VALUE IN LIST PARAMETER 


000339 


OUTOFMEM 


EQU 


$54 


OUT OF FREE MEMORY FOR BUFFER 


000340 


BUFTBLFULL 


EQU 


$55 


BUFFER TABLE FULL 


r\ n n o /i t 

000341 


BADSYSBUF 


EQU 


$56 


INVALID SYSBUF PARAMETER 


000342 


DUPVOL 


EQU 


$57 


SON A BITCH GOT TWO VOLUMES OF SAME ROOT NAME ! ! ! 


000343 


NOTBLKDEV 


EQU 


$58 




000344 


LVLERR 


EQU 


$59 


INVALID FILE LEVEL 


000345 


B I TMAPADR 


EQU 


$5A 




000346 


BACKBIT 


EQU 


$20 


MASK FOR BACKUP BIT 


000347 










000348 


* - UTILITY MANAGER 






000349 










000350 


BADJMODE 


EQU 


$70 ; INVALID JOYSTICK REQUEST 


r\ n n o c i 

000351 


* 








000352 


* - MEMORY MANAGER 






n n n -3 c o 
000353 










000354 


BADBKPG 


EQU 


$E0 


INVALID BANK/PAGE PAIR 


000355 


SEGRQDN 


EQU 


$E1 ; SEGMENT REQUEST DENIED 


000356 


SEGTBLFULL 


EQU 


$E2 /SEGMENT TABLE FULL 


000357 


BADSEGNUM 


EQU 


$E3 


INVALID SEGMENT NUMBER 


000358 


SEGNOTFND 


EQU 


$E4 /SEGMENT NOT FOUND 


000359 


BADSRCHMODE 


EQU 


$E5 


INVALID SEARCH MODE PARM 


000360 


BADCHGMODE 


EQU 


$E6 


INVALID CHANGE MODE PARM 


000361 


BADPGCNT 


EQU 


$E7 


INVALID PAGE COUNT PARM 


000362 




ORG 


SYSGLOB+$100 




000363 




DW 


$B800 


KERNEL TARGET ADDRESS 


000364 




DW 


$47C0 


AND LENGTH 


000365 










000366 


************************************************************************* 


000367 


* END OF APPLE 


/// SOS 1 


3 SOURCE CODE FILE: SYSGLOB.SRC 


000368 


************************************************************************* 


000369 










000370 










End of 


File -- Lines: 


370 Characters: 12524 
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FILE: "SOS. TCOMP. SOS. TEXT 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: TCOMP . SOS 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 : TABS 17,23,40 

000007 SL4:DR1:ASM IPL.SRC1, IPL.OBJ, 6, 1 

000008 SL4:DR1:ASM UMGR. SRC, UMGR. OB J, 6 , 1 

000009 SL4:DR2:ASM DISK3 . SRC, DISK3 . OBJ, 6, 1 

000010 SL4:DR2:ASM SYSERR. SRC, SYSERR. OBJ, 6, 1 

000011 SL4:DR2:ASM SCMGR. SRC, SCMGR. OBJ, 6, 1 

000012 SL4:DR2:ASM FMGR. SRC, FMGR. OB J, 6 , 1 

000013 SL4:DR2:ASM CFMGR. SRC, CFMGR. OBJ, 6, 1 

000014 SL4:DR2:ASM DEVMGR . SRC , DEVMGR . OBJ ,6,1 

000015 SL4:DR2:ASM BUFMGR. SRC, BUFMGR. OBJ, 6, 1 

000016 SL4:DR2:ASM MEMMGR. A. SRC,MEMMGR. OBJ, 6, 1 
000017 

000018 ************************************************************************* 

000019 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: TCOMP. SOS 

000020 ************************************************************************* 



End of File — Lines: 20 Characters: 824 
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FILE : " SOS. UMGR. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



***************************************************************** 
* APPLE /// SOS 1.3 SOURCE CODE FILE: UMGR . SRC 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



******** 



******** 



"SOS 1.1 UTILITY MANAGER" 

SOSORG, 6,1,254 
ORGUMGR 



SBTL 
REL 

INCLUDE 
ORG 

ORG EQU * 

MSB OFF 
REP 60 
COPYRIGHT (C) APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 
REP 60 
UTILITY MANAGER 

THIS MODULE HANDLES THE FOLLOWING SOS CALLS: 
SET . FENCE , GET . FENCE 
SET. TIME, GET. TIME 
JOYSTICK, COLDSTRT 

IN ADDITION, IT CONTAINS THE ROUITNE DATE TIME WHICH 
PROVIDES THE DATE AND TIME FOR THE BLOCK FILE MANAGER . 



60 

UMGR 
DATETIME 
BCDBIN 
COLDSTRT 

PCLOCK 

SYSBANK 

CEVPRI 

SYSERR 

BADSCNUM 

BADJMODE 

XNORESRC 

ALLOCS IR 

DEALCSIR 

$C0 

U.TPARMX 

U.TPARMX+1 

U.TPARMX+1 

U.TPARMX+2 

U.TPARMX+1 

U.TPARMX+1 

$04 
$20 
$40 
$80 
$DF 

$FFD0 
$FFDF 
$FFEF 

35 



U.TPARMX 
U . REQCODE 
PRIORITY 
J. MODE 
J. VALUE 
TIME 
MEMORY 
* 

BITON2 
BITON5 
BITON6 
BITON7 
BITOFF5 

Z .REG 
E.REG 
B.REG 



ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 

EQU 

EQU 

EQU 

PAGE 

REP 



* UTILITY SWITCH 



EQU 
LDA 
ORA 
STA 

LDA 
CMP 
BCS 



35 



E.REG 

#BITON6 

E.REG 

U . REQCODE 

IUSWCNT 

UMGRERR 



; SELECT $C00O I/O SPACE 
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000077 




ASL 


A 


000078 




TAX 




000079 




LDA 


USWTBL+1,X 


000080 




PHA 




000081 




LDA 


USWTBL, X 


000082 




PHA 




000083 




RTS 




000084 








000085 


UMGRERR LDA 


#>BADSCNUM 


000086 




JSR 


SYSERR 


000087 


* 






000088 


* 


UTILITY SWITCH TABLE 




000089 


* 






000090 


USWTBL EQU 




000091 




DW 


SET . FENCE-1 


000092 




DW 


GET . FENCE-1 


000093 




DW 


SET . TIME-1 


000094 




DW 


GET . TIME-1 


000095 




DW 


JOYSTICK-1 


000096 




DW 


COLDSTRT-1 


000097 


USWCNT EQU 


*-USWTBL/2 


000098 




PAGE 




000099 




REP 


60 


000100 


* 






000101 


* 


SET . FENCE ( IN . PRIORITY 


) SYSTEM CALL 


000102 


* 






000103 


* 


GET. FENCE (OUT. PRIORITY) SYSTEM CALL 


000104 








000105 




THESE TWO CALLS ALLOW 


THE CALLER TO EITHER RETRIEVE OR SET 


000106 


* 


THE CURRENT SYSTEM EVENT PRIORITY THRESHOLD. BY RAISING 


000107 


* 


THE FENCE, A USER MAY 


INHIBIT THE EXECUTION OF EVENTS WHOSE 


000108 


* 


PRIORITY IS EQUAL TO 


DR LESS THAN THE VALUE OF THE SYSTEM 


000109 


* 


FENCE . 




000110 


* 






000111 




REP 


60 


000112 








000113 








000114 


SET . FENCE EQU 




000115 




LDA 


PRIORITY 


000116 




STA 


CEVPRI 


000117 




RTS 


; NORMAL EXIT 


000118 


* 






000119 


* 






000120 


GET . FENCE EQU 




000121 




LDA 


CEVPRI 


000122 




LDY 


#0 


000123 




STA 


(PRIORITY) ,Y 


000124 




RTS 


; NORMAL EXIT 


000125 




PAGE 




000126 




REP 


60 


000127 


* 






000128 


* 


SET. TIME (IN. TIME) 




000129 


* 


GET. TIME (OUT. TIME) 




000130 


* 






000131 




THESE SYSTEM CALLS ALLOW THE USER TO SET AND READ THE 


000132 




SYSTEM'S CLOCK. THE 


TIME IS EXPRESSED AS AN EIGHTEEN 


000133 


* 


DIGIT ASCII STRING IN THE FORM "YYYYMMDDWHHMMSSMMM" . 


000134 


* 






000135 


* 


YYYY YEAR [1900-1999] 


000136 


* 


MM MONTH 


[01-12] 


000137 


* 


DD DAY 


[01-31] 


000138 




W WEEKDAY 


[1-7] 1 => SUNDAY 


000139 




HH HOUR 


[00-23] 


000140 


* 


MM MINUTE 


[00-59] 


000141 


* 


SS SECOND 


[00-59] 


000142 


* 


MMM MILLISECOND 


[000-999] 


000143 


* 






000144 


* 


THE CLOCK CHIP AUTOMATICALLY MAINTAINS THE TIME AND 


000145 


* 


DATE FROM MILLISECONDS TO MONTHS. IT DOES NOT MAINTAIN 


000146 


* 


THE YEAR, HOWEVER, NOR DOES IT RECOGNIZE 29 FEBRUARY 


000147 




IN LEAP YEARS. THE 


SOFTWARE SETS THE DAY AND MONTH 


000148 




LATCHES TO THE DON'T 


CARE STATE AND USES THE REMAINING 


000149 


* 


EIGHT BITS TO HOLD A 


TWO DIGIT BCD YEAR. THE CLOCK 


000150 


* 


MUST BE RESET AT THE 


BEGINNING OF EACH YEAR AND ON 


000151 


* 


29 FEBRUARY IN LEAP 


YEARS . 


000152 


* 






000153 


* 


SET. TIME ASSUMES THAT THE DATE IS VALID AND CORRECT. 


000154 


* 


THE CENTURY IS IGNORED AND MILLISECONDS ARE ALWAYS SET 


000155 


* 


TO ZERO. GET. TIME ALWAYS SETS THE CENTURY TO 19. 


000156 


* 






000157 




REP 


60 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



TEMPORARY ZERO PAGE 



PCLK 
WKDAY 
CKSUM 
CLKTEMP 



EQU 
EQU 
EQU 
EQU 



CLOCK LOCAL DATA 



PCLOCK 
RETRY 



DS 
DS 



$D0 
$D2 
$D3 
$18D4 



$0A 
$01 



; POINTER TO SAVED PCLOCK 



; THROUGH $18DD - ABSOLUTE 



;PSEUDO CLOCK REGISTERS 



CLOCK HARDWARE ADDRESSES 



CLOCK 

CSEC 

CMIN 

CMON 

LDAY 

CRESET 

STATUS 

WKMON 



STIM010 
STIM011 



STIM015 



STIM016 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

DFB 
DFB 



EQU 
LDX 
LDY 
LDA 
BNE 

I NX 
LDA 
AND 
STA 
DEY 
CPY 
BEQ 
LDA 
ASL 
ASL 
ASL 
ASL 
ORA 
STA 
DEY 
BPL 

LDA 
JSR 
TAX 
LDA 
JSR 
TAY 
LSR 
LSR 
STA 
TYA 
AND 
BNE 
CPX 
BCS 
DEY 
CLC 
TYA 
ADC 
ADC 
STA 
LDA 
JSR 
CLC 
ADC 
SEC 
SBC 
CMP 
BCS 
STA 



$C070 

$02 

$03 

$07 

$0E 

$12 

$14 

8,11,11,7, 9, 12 
7,10,13,8,11,13 



#$00 
#$12 
#'0' 
STIM011 



(TIME) ,Y 
#$0F 

PCLOCK, X 

#$07 
STIM010 
(TIME) , Y 
A 
A 
A 
A 

PCLOCK, X 
PCLOCK, X 

STIM010 

PCLOCK+7 
BCDBIN 

PCLOCK+8 
BCDBIN 

A 
A 

WKDAY 

#$03 

STIM015 

#3 

STIM015 



WKDAY 
WKMON- 1,X 
WKDAY 
PCLOCK+6 
BCDBIN 

WKDAY 

#7 
#8 

STIM016 
PCLOCK+5 



CONVERT TIME FROM 
ASCII TO BCD AND 
TRANSFER TO PCLOCK 



/CALCULATE WEEKDAY 



<SRS 82.162> 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



STIM030 



STIM040 



STIM050 



LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 

LDA 
STA 
EOR 
STA 
I NY 
CPY 
BCC 
STA 

LDA 
PHA 
LDA 
PHA 
ORA 
STA 

LDY 
STY 
LDA 
BMI 

LDX 
STX 
LDA 
STA 
STA 

LDX 
I NX 
PHP 
SEI 
STX 
LDA 
LDA 
STA 
LDA 
STY 
LDA 
BNE 
PLP 
CPX 
BCC 

LDX 
STX 
LDA 
ORA 
STA 
INC 
LDA 
LSR 
LSR 
ORA 
STA 

PLA 

STA 

PLA 

STA 

RTS 

PAGE 

EQU 

LDA 

PHA 

LDA 

PHA 

ORA 

STA 

LDY 
STY 



#$D0 

PCLK 

#$FF 

PCLK+1 

#$8F 

$1401+PCLK 
#$A5 
CKSUM 
#500 

PCLOCK, Y 
(PCLK) , Y 
CKSUM 
CKSUM 

#50A 
STIM020 
(PCLK) , Y 

Z .REG 

E.REG 

#BITON7 
E.REG 

ISTATUS 
Z .REG 

CLOCK 
STIM050 

#CRESET 
Z .REG 
#$FF 

CLOCK 
CLOCK 

#CSEC-1 



Z .REG 

CLOCK 

PCLOCK, X 

CLOCK 

CLOCK 

Z .REG 

CLOCK 

STIM040 

#CMON 
STIM030 

#LDAY 

Z .REG 

PCLOCK+8 

#$CC 

CLOCK 

Z .REG 

PCLOCK+8 

A 

A 

#$CC 
CLOCK 



E.REG 
Z .REG 



Z .REG 
E.REG 



IBITON7 
E.REG 



♦STATUS 
Z .REG 



;POINT (PCLK) TO 8F : FFD0 



; INITIALIZE CHECKSUM 



/SAVE PCLOCK 
; BEHIND 6522 



;SAVE CHECKSUM 



;SAVE ZERO PAGE 



;SAVE ENVIRONMENT 
; AND SET 1 MHZ 



;DOES CLOCK EXIST? 
; NO 



; RESET ALL COUNTERS 



; DISABLE INTERRUPTS 

; (DUMMY READ FOR STATUS) 



;SET CLOCK COUNTER 

; (DUMMY READ FOR STATUS) 



; CHECK STATUS BIT 
; RESTORE INTERRUPTS 



; STUFF YEAR INTO DAY 
; AND MONTH LATCHES 



; RESTORE ENVIRONMENT 
; AND ZERO PAGE 



;SAVE ZERO PAGE 
;SAVE ENVIRONMENT 



;SET 1 MHZ 
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000320 










LDA 


CLOCK 




;DOES CLOCK EXIST? 


000321 










BMI 


GTIM050 




; NO 


r\ n n o n o 

000322 


* 
















r\ n n o n o 

000323 










LDA 


#$10 




;ALLOW $10 RETRYS 


r\ n n o n /i 

000324 










STA 


RETRY 






r\ n n o n c 

000325 


GTIM010 






LDX 


#CMON+l 






r\ n n o n /~ 

000326 










PHP 








000327 










SEI 






; DISABLE INTERRUPTS 


000328 


* 
















000329 


GTIM020 






DEX 








r\ n n o o n 

000330 










BMI 


GTIM030 




; ALL DONE 


000331 










STX 


Z . REG 






r\ n n o o o 

000332 










LDA 


CLOCK 




;COPY CLOCK COUNTERS 


r\ n n o ^ o 

000333 










STA 


CLKTEMP, X 




; TO TEMP REGISTERS 


000334 










STY 


Z . REG 






r\ n n o o c 

000335 










LDA 


CLOCK 




; CHECK STATUS BIT 


r\ n n o ^ ^ 

000336 










BEQ 


GTIM020 






r\ n n o o "~7 

000337 


* 
















r\ n n o o o 

000338 










PLP 






; CLOCK READ ERROR 


r\ n n o o rs 

000339 










DEC 


RETRY 






r\ n n o a r\ 

000340 










BPL 


GTIM010 




; TRY AGAIN 


r\ n r\ o /i t 

000341 










BMI 


GTIM050 






000342 


* 
















000343 


GTIM030 






PLP 






; RESTORE INTERRUPTS 


000344 










LDX 


#LDAY+1 






000345 










STX 


Z . REG 






000346 










LDA 


CLOCK 




; READ YEAR FROM DAY 


000347 










SEC 






; AND MONTH LATCHES 


000348 










ROL 


A 






000349 










ROL 


A 






000350 










DEC 


Z . REG 






000351 










AND 


CLOCK 






000352 










STA 


CLKTEMP+8 






000353 


* 
















r\ n n o c a 

000354 










LDX 


#$09 






000355 


GTIM040 






LDA 


CLKTEMP, X 




,* COPY CLOCK DATA 


000356 










STA 


PCLOCK, X 




; TO PSEUDO CLOCK 


000357 










DEX 








000358 










BPL 


GTIM040 






000359 


* 
















r\ n n o r~ n 

000360 


GTIM050 






LDA 


#$19 






r\ n n o r~ *\ 

000361 










STA 


PCLOCK+9 






000362 


* 
















000363 










PLA 








000364 










STA 


E . REG 




; RESTORE ENVIRONMENT 


000365 










PLA 








000366 










STA 


Z . REG 




,* AND ZERO PAGE 


00036 / 


* 
















r\ n n o r~ o 

000368 










LDY 


#$11 






000369 










LDX 


#$00 






r\ n n o t n 

000370 


GTIM060 






LDA 


PCLOCK, X 




;GET MOST SIGNIFICANT 


000371 










LSR 


A 




; BCD DIGIT 


000372 










LSR 


A 






000373 










LSR 


A 






000374 










LSR 


A 






000375 










ORA 


#$30 




/CONVERT TO ASCII 


r\ r\ r\ ~~i s~ 

000376 










STA 


(TIME) , Y 






000377 










I NX 








000378 










DEY 








000379 










BMI 


GTIM080 






r\ n n o o n 

000380 


GTIM070 






LDA 


PCLOCK, X 




;GET LEAST SIGNIFICANT 


000381 










AND 


#$0F 




; BCD DIGIT 


000382 










ORA 


#$30 




/CONVERT TO ASCII 


000383 










STA 


(TIME) , Y 






000384 










DEY 








000385 










CPY 


#$07 






r\ n n o o r 

000386 










BNE 


GTIM060 






r\ n n o o "~7 

00038 / 










I NX 








000388 










BNE 


GTIM070 






n n n n o n 
0U0js89 


GTIM080 






RTS 








000390 










PAGE 








000391 










REP 


60 






000392 


















000393 




SUBROUTINE 


DATE TIME 








000394 


* 
















000395 


* 


THIS SUBROUTINE READS THE CLOCK AND 


WRITES 


A DATE/ TIME 


000396 


* 


STAMP 


TO 


A 


FOUR BYTE BUFFER ON THE CALLER' 


S ZERO PAGE; 


000397 


* 


THE DATA 


FORMAT IS 


SHOWN BELOW. ON 


ENTRY, 


X MUST POINT 


000398 


* 


TO THE 


BUFFER. ON 


EXIT, ALL REGISTERS ARE 


CLOBBERED. 


000399 




IF AN 


ERROR OCCURS, 


CARRY IS SET AND THE BUFFER IS 


000400 


* 


SET TC 


ZERO; OTHERWISE, CARRY IS CLEARED. 
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000401 




















000402 


* BITS: 


7 


6 


5 


4 3 2 


1 









000403 


* x+o 


M 


M 


M 


D D D 


D 


D 






000404 


* X+l 


Y 


Y 


Y 


Y Y Y 


Y 


M 






000405 


* X+2 






MINUTE 










000406 


* X+3 






- 


10UR - 










000407 




















000408 










REP 






60 




000409 


-k 


















000410 


* TEMPORARY 


STORAGE 










000411 




















000412 


OFFSET 








DFB 











000413 


ERRCNT 








DFB 











000414 


CLKREGS 








DS 






5 




000415 


MIN 








EQU 






CLKREGS+0 




000416 


HOUR 








EQU 






CLKREGS+1 




000417 


DAY 








EQU 






CLKREGS+3 




000418 


MON 








EQU 






CLKREGS+4 




000419 


YEAR 








EQU 






CLKREGS+2 




000420 




















000421 




















000422 


DATE TIME 








EQU 










000423 










STX 






OFFSET 




000424 










LDA 






Z . REG 




000425 










PHA 








; SAVE ZERO PAGE 


000426 










LDA 






E . REG 




000427 










PHA 








; AND ENVIRONMENT 


000428 










ORA 






#BITON7+BITON6 


; SET 1 MHZ AND 


000429 










STA 






E .REG 


ENABLE I/O SPACE 


000430 




















000431 










LDY 






# STATUS 




000432 










STY 






Z .REG 




000433 










LDA 






CLOCK 


;DOES CLOCK EXIST? 


000434 










BMI 






DT030 


; NO 


000435 




















000436 










LDA 






#8 




000437 










STA 






ERRCNT 


; ALLOW 8 RETRYS 


000438 


DT010 








LDX 






#CMON+l 




000439 










PHP 










000440 










SEI 








; DISABLE INTERRUPTS 


000441 




















000442 


DT020 








DEX 










000443 










CPX 






#CMIN 




000444 










BCC 






DT050 




000445 










STX 






Z . REG 




000446 










LDA 






CLOCK 


; READ THE CLOCK 


000447 










STA 






CLKREGS-CMIN, X 




000448 










STY 






Z . REG 




000449 










LDA 






CLOCK 


; CHECK STATUS 


000450 










BEQ 






DT020 




000451 




















000452 










PLP 








; CLOCK READ ERROR 


000453 










DEC 






ERRCNT 




000454 










BPL 






DT010 




000455 


DT0 30 








PLA 










000456 










STA 






E .REG 


; RESTORE ENVIRONMENT 


000457 










PLA 










000458 










STA 






Z .REG 


AND ZERO PAGE 


000459 










LDX 






ICMON-CMIN 




000460 


DT040 








LDA 






PCLOCK+CMIN, X 




000461 










STA 






CLKREGS, X 




000462 










DEX 










000463 










BPL 






DT040 




000464 










LDX 






PCLOCK+8 




000465 










JMP 






DT060 




000466 


-k 


















000467 


DT050 








PLP 








;READ YEAR FROM LATCHES 


000468 










LDA 






#LDAY+1 




000469 










STA 






Z . REG 




000470 










LDA 






CLOCK 




000471 










SEC 










000472 










ROL 






A 




000473 










ROL 






A 




000474 










DEC 






Z .REG 




000475 










AND 






CLOCK 




000476 










TAX 










000477 


* 


















000478 










PLA 










000479 










STA 






E.REG 


; RESTORE ENVIRONMENT 


000480 










PLA 










000481 










STA 






Z .REG 


; AND ZERO PAGE 
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000482 


















000483 


DT060 TXA 














000484 




JSR 




BCDBIN 








; CONVERT YEAR TO BINARY 


000485 




STA 




YEAR 










000486 




LDA 




MON 








; CONVERT MONTH AND DAY 


000487 




JSR 




BCDBIN 








; TO BINARY THEN 


000488 




ASL 




A 








; COMBINE WITH YEAR 


000489 




ASL 




A 








; TO FORM DATE STAMP 


000490 




ASL 




A 










000491 




ASL 




A 










000492 




ASL 




A 










000493 




STA 




MON 










000494 




ROL 




YEAR 










000495 




LDA 




DAY 










000496 




JSR 




BCDBIN 










000497 




ORA 




MON 










000498 




LDX 




OFFSET 










000499 




STA 




0, X 










000500 




LDA 




YEAR 










000501 




STA 




1, X 










000502 




LDA 




MIN 








; CONVERT MINUTE 


000503 




JSR 




BCDBIN 










000504 




STA 




2, X 










000505 




LDA 




HOUR 








; CONVERT HOUR 


000506 




JSR 




BCDBIN 










000507 




STA 




3,X 










000508 




CLC 














000509 




RTS 














000510 




PAGE 














000511 




REP 




60 










000512 


* 
















000513 


* 


SUBROUTINE BCDBIN 














000514 


* 
















000515 


* 


THIS SUBROUTINE CONVERTS A BYTE 


FROM BCD 


TO 


BINARY . 


000516 




THE BYTE IS PASSED 


ANE 


RETURNED 


IN A. 


THERE 


IS NO 


000517 


* 


ERROR CHECKING. Y 


_S 


DESTROYED 


AND X 


IS 


UNCHANGED . 


000518 


* 
















000519 




REP 




60 










000520 


* 
















000521 


BCDBIN EQU 




* 










000522 




PHA 














000523 




LSR 




A 








; ISOLATE TENS DIGIT FOR 


000524 




LSR 




A 








INDEXING THE TABLE 


000525 




LSR 




A 










000526 




LSR 




A 










000527 




TAY 














000528 




PLA 














000529 




AND 




#$0F 








; GET UNITS 


000530 




CLC 














000531 




ADC 




TENS, Y 








; ADD IN TENS 


000532 




RTS 














000533 


* 
















000534 


TENS DFB 




00,10,20 


,30,40 


,50 


,60 


,70,80,90 


000535 




PAGE 














000536 




REP 




60 










000537 


* 
















000538 


* 


SOS CALL $64 — JOYSTICK INPUT 










000539 




JOYSTICK (IN. J. MODE ,- 


OUT. J. VALUE) 








000540 


* 
















000541 




REP 




60 










000542 


* 
















000543 


















000544 


AD 


INPUT EQU 




$D0 










000545 


AD 


TEMP EQU 




$D1 










000546 


* 
















000547 


PA 


SW0 EQU 




$C061 








;PORT A, SWITCH 


000548 


PA 


SW1 EQU 




$C063 








;PORT A, SWITCH 1 


000549 


PB 


SW0 EQU 




$C062 








;PORT B, SWITCH 


000550 


PB 


SW1 EQU 




$C060 








;PORT B, SWITCH 1 


000551 


* 
















000552 


AD 


SEL0 EQU 




$C058 








;A/D SELECT CONTROLS 


n n n c c q 
0UU553 


AD 


SEL1 EQU 




$C05E 










000554 


AD 


SEL2 EQU 




$C05A 










000555 


AD 


CHRG EQU 




$C05C 








;A/D RAMP CHARGE / 


000556 


AD 


STRT EQU 




$C05D 








START TIMEOUT 


000557 


AD 


FLAG EQU 




$C066 








;A/D TIMEOUT FLAG 


000558 


* 
















000559 


TCHARGE EQU 




500 








/CHARGE TIME FOR A/D 


000560 


TOFFSET EQU 




360 








/OFFSET TIME TO A/D WINDOW 


000561 


















000562 


ANALOG EQU 




$F4A8 








/ROM ENTRY FOR ANALOG INPUI 
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r\ n n tz r q 
0005o3 


AN LOG 1 


EQU 


$F4AB 




; INTERRUPT REENTRY 


000564 


D . T2 


EQU 


$FFD8 




; TIMER 


000565 


D . ACR 


EQU 


SFFDB 




/AUXILIARY CONTROL REGISTER 


000566 


D . IFR 


EQU 


$FFDD 




/INTERRUPT FLAG REGISTER 


00056 / 












000568 


ENSEL 


EQU 


$C0DC 






000569 


ENSIO 


EQU 


$C0DE 






000570 












000571 












000572 


JOYSTICK 


EQU 








000573 




LDA 


J . MODE 




; VALIDATE J. MODE 


000574 




CMP 


#$08 






000575 




BCC 


JS010 






000576 




LDA 


#>BADJMODE 






000577 


JS . ERR 


JSR 


SYSERR 






00057b 












000579 


JS010 


JSR 


AD. SETUP 




;SET UP RESOURCES 


000580 




BCS 


JS . ERR 






000581 




LDA 


J . MODE 




;READ PORT B OR PORT A? 


000582 




AND 


#BITON2 






000583 




BNE 


JS020 






000584 




LDA 


PB . SW0 




; PORT B 


r\ r\ n c o it 

000585 




LDX 


PB . SW1 






000586 




LDY 


#$01 






n n n c o n 
00058 / 




BNE 


JS030 






000588 


JS020 


LDA 


PA. SW0 




; PORT A 


000589 




LDX 


PA. SW1 






000590 




LDY 


#$03 






000591 


JS030 


STY 


AD. INPUT 




;SAVE INPUT SELECT 


000592 




AND 


#BITON7 






000593 




BEQ 


JS040 






000594 




LDA 


#$FF 






000595 


JS040 


LDY 


#$00 






Anne rir 

000596 




STA 


( J . VALUE ) , Y 




/RETURN SWITCH 


000597 




TXA 








000598 




AND 


#BITON7 






000599 




BEQ 


JS050 






000600 




LDA 


#$FF 






r\ n r\ r~ r\ *\ 

000601 


JS050 


I NY 








r\ n n n o 

000602 




STA 


( J . VALUE ) , Y 




/RETURN SWITCH 1 


r\ n n n o 

000603 












r\ n r\ r n /i 

000604 




LSR 


J . MODE 






r\ n n /~ n c 

000605 




BCC 


JS060 






000606 




LDA 


AD. INPUT 






000607 




JSR 


AD . READ 




;READ A/D 


000608 




LDY 


#$02 






000609 




STA 


( J . VALUE ) , Y 




; RETURN X AXIS 


000610 


JS060 


INC 


AD . INPUT 






000611 




LSR 


J . MODE 






000612 




BCC 


JS070 






000613 




LDA 


AD. INPUT 






UU U b!4 




JSR 


AD . READ 




; READ A/D 


000615 




LDY 


#$03 






000616 




STA 


( J . VALUE ) , Y 




; RETURN Y AXIS 


000617 












000618 


JS070 


JSR 


AD.CLNUP 




; CLEAN UP 


000619 




RTS 






; AND EXIT 


r\ r\ r\ r n r\ 

000620 




PAGE 








000621 




REP 


60 






r\ n n /~ n o 

000622 


-k 










r\ n n n o 

000623 


* SUBROUTINE 


AD. SETUP 








000624 


* THIS SUBROUTINE SETS 


UP THE ENVIRONMENT 


AND 


RESOURCES 


000625 


* FOR READING THE JOYSTICKS. IF AN ERROR 


OCCURS, CARRY 


000626 


* IS SET AND 


AN ERROR 


NUMBER IS RETURNED 


IN A. 




000627 


* OTHERWISE, 


CARRY IS 


CLEARED . 






r\ n n r~ n o 

000628 












r\ n n n n 

000629 




REP 


60 






r\ r\ r\ r o r\ 

000630 


AD. SETUP 


EQU 


* 






000631 




LDA 


#JOYSIRSIZ 






r\ n n ^ o 

000632 




LDX 


#>JOYSIRTBL 






000633 




LDY 


#<JOYSIRTBL 






000634 




JSR 


ALLOCS IR 




; ALLOCATE RESOURCES 


000635 




BCC 


ADS010 






000636 




LDA 


#>XNORESRC 






000637 




RTS 








000638 


ADS010 


LDA 


E.REG 






000639 




AND 


#$7F 




;SET 2 MHZ, 


000640 




ORA 


#$43 




; ENABLE ROM, & I/O SPACE 


000641 




STA 


E.REG 






000642 




PHP 








000643 




SEI 
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r\ n n r a a 
000644 


LDA 


D . ACR 






r\ n r\ r a c 

000645 


AND 


#BITOFF5 




;SET UP TIMER 


000646 


STA 


D.ACR 






000647 


PLP 








000648 


BIT 


ENSEL 




; DISABLE ENSEL 


r\ r\ r\ r~ a n 

000649 


BIT 


ENSIO 




; SET ENSIO FOR INPUT 


n n n r cr\ 
000650 


RTS 








000651 










000652 


JOYSIRTBL EQU 








000653 


DFB 


$0C, 0,0,0, 





; ENSIO 


000654 


DFB 


$0D, 0,0,0, 





; ENSEL 


000655 


DFB 


$0E, 0,0,0, 





; 6522 D.T2 


000656 


JOYS IRS I Z EQU 


*-JOYSIRTBL 




00065 / 


REP 


60 






00065b 










000659 


* SUBROUTINE AD.CLNUP 








000660 


* THIS SUBROUTINE RESTORES THE ENVIRONMENT AND 


RELEASES 


000661 


* THE RESOURCES AFTER READING THE JOYSTICKS. 




000662 










000663 


REP 


60 






000664 


AD . CLNUP EQU 








000665 


LDA 


E.REG 






000666 


AND 


#$3C 




/RESTORE RAM AT $C000 & 


00066 / 


STA 


E.REG 






t~\ n r\ r~ r o 

000668 


LDA 


#JOYSIRSIZ 




000669 


LDX 


#>JOYSIRTBL 




000670 


LDY 


#<JOYSIRTBL 




000671 


JSR 


DEALCSIR 




/DEALLOCATE RESOURCES 


000672 


RTS 








000673 


PAGE 








r\ n n r "~i a 

000674 


REP 


60 






000675 










r\ n r\ r "~i r 

000676 


* SUBROUTINE AD. RE AD 








r\ n n 'T ^7 

000677 


* THIS SUBROUTINE READS A 


SPECIFIED 


A/D INPUT 


AND RETURNS 


000678 


* AN 8 BIT RESULT. IT ASSUMES THAT 


THE A/D RESOURCES HAVE 


000679 


* BEEN ALLOCATED, THE I/O 


SPACE AND 


$F000 ROM 


HAVE BEEN 


000680 


* SELECTED, AND THE SYSTEM IS RUNNING IN 2 MHZ 


MODE . 


000681 










r\ r\ r\ r~ o o 

000682 


* PARAMETERS : 








r\ n n r o o 

000683 


* A: A/D INPUT PORT (0 


-7) 






000684 










000685 


* RETURN VALUE: 








r\ r\ r\ r o r 

000686 


* A: RESULT (0 - 255) 








000687 


* X, Y: UNDEFINED 








000688 










000689 


REP 


60 






000690 










000691 


AD . READ EQU 


* 






r\ r\ r\ r~ n o 

000692 


LSR 


A 




; SELECT THE APPROPRIATE 


000693 


BIT 


AD.SELO 




; A/D INPUT 


000694 


BCC 


ADR010 






00069b 


BIT 


AD.SELO+1 






000696 


ADR010 LSR 


A 






000697 


BIT 


AD.SEL1 






000698 


BCC 


ADR020 






000699 


BIT 


AD.SEL1+1 






000700 


ADR020 LSR 


A 






000 /01 


BIT 


AD.SEL2 






000702 


BCC 


ADR030 






r\ n n n n o 

000703 


BIT 


AD.SEL2+1 






000704 


ADR030 PHP 








000705 










000706 


ADR040 CLI 








000707 


BIT 


AD.CHRG 




/CHARGE A/D CAPACITOR 


000708 


LDA 


#>TCHARGE 






r\ n n n n n 

000709 


STA 


D.T2 






000710 


LDA 


#<TCHARGE 






000711 


STA 


D.T2+1 






000712 


LDA 


#BITON5 






fin mi o 

000713 


ADR050 BIT 


D. IFR 






000714 


BEQ 


ADR050 






000715 










000716 


SEI 








000717 


SEC 








000718 


LDA 


#>TOFFSET 






000719 


STA 


D.T2 




;SET UP TIMER 


000720 


LDA 


#<TOFFSET 






000721 


BIT 


AD.STRT 




; START A/D TIMEOUT 


000722 


JSR 


ANALOG 




; MEASURE CONVERSION TIME 


000723 


BCC 


ADR070 






000724 
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000725 


ADR060 CLI 




000726 


SEI 




000727 


BIT 


AD . FLAG 


000 /28 


BPL 


ADR04 


000729 


JSR 


ANLOG1 


r\ n r\ "i o n 

0007 JO 


BCS 


ADR060 


000731 






000732 


ADR070 PLP 




000733 


EOR 


#$FF 


000734 


BMI 


ADR080 


000735 


STA 


AD . TEMP 


000736 


TYA 




r\r\ r\-i ^>-i 

000737 


EOR 


#$FF 


000738 


LSR 


AD . TEMP 


000739 


ROR 


A 


000740 


LSR 


AD . TEMP 


000741 


ROR 


A 


000742 


LSR 


AD . TEMP 


000743 


BNE 


ADR090 


000744 


ROR 


A 


000745 


ADC 


#0 


000746 


RTS 




000747 


ADR0 8 LDA 


#0 


000748 


RTS 




000749 


ADR090 LDA 


#$FF 


000750 


RTS 




000751 


PAGE 




000752 


REP 


60 


000753 






000754 


* SYSTEM COLD START 




000755 






000756 


* THIS ROUTINE IS CALLED 


TO TELL THE 


000757 


* SYSTEM. IT CLEARS THE 


SCREEN, DISP 


000 /oo 


* OVERWRITES BANKED MEMORY , AND HANGS 


000759 


* PERFORMS A HARD RESET . 




0007 60 






0007 61 


REP 


60 


000762 






0007 63 






r\ n n ~j r~ /i 

0007 64 


COLDSTRT EQU 


* 


000765 


SEI 




r\ n n ~j ^ r 

0007 66 


LDA 


#540 


r\ n n -i r-i 

0007 67 


STA 


$FFCA 


0007 68 


LDA 


#$67 


0007 69 


STA 


E.REG 


000770 


LDA 


#$00 


000771 


STA 


Z .REG 


000772 






000773 


LDX 


SYSBANK 


000774 


LDA 


#$BF 


000775 


LDY 


#$00 


r\ r\ r\ i "~t r 

000 / /6 


STY 


MEMORY 


000777 


CS010 STA 


MEMORY +1 


000778 


STX 


B.REG 


000779 


LDA 


#$A0 


000780 


CS020 STA 


(MEMORY) ,Y 


000781 


DEY 




r\ n r\ "~i o o 

000782 


BNE 


CS020 


000783 


DEC 


MEMORY +1 


000784 


BNE 


CS020 


000785 


DEX 




000786 


BPL 


CS010 


000787 






000788 


LDY 


#6 


000789 


CS030 STA 


$C050,Y 


r\r\ c\r\ 

000 / 90 


DEY 




0007 91 


BPL 


CS030 


000792 






r\r\ f\"~i no 

0007 yj 


LDY 


#BOOTLEN 


000794 


CS040 LDA 


BOOTMSG- 1, Y 


000795 


STA 


BOOTADR-1, Y 


00 U / y D 


DEY 




000797 


BNE 


CS040 


000798 






000799 


LDA 


#$77 


000800 


STA 


E.REG 


000801 


JMP 




000802 


PAGE 




000803 


MSB 


ON 


000804 


BOOTMSG ASC 


"INSERT SYS 


000805 


BOOTLEN EQU 


*-BOOTMSG 



; PROCESS AN INTERRUPT 

STILL TIMING? 

NO — START OVER 
YES — CONTINUE 



/NORMALIZE RESULT 
; RESULT < 



; RESULT > 255 



A MESSAGE, 



,-SHUT DOWN INTERRUPTS 
; AND IGNORE NMI 



; DISABLE RESET 
;USE PAGE ZERO 



;SET MEMORY TO BLANKS 



; SELECT 40 COLUMN 

; BLACK & WHITE TEXT 



; PRINT BOOT MESSAGE 



; ENABLE RESET 

; HANG UNTIL RESET 
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000806 


BOOTADR 


EQU 


40-BOOTLEN/2+$628 


000807 




MSB 


OFF 


000808 




LST 


ON 


000809 


ZZEND 


EQU 


* 


000810 


ZZLEN 


EQU 


ZZEND-ZZORG 


000811 




IFNE 


Z ZLEN-LENUMGR 


000812 




FAIL 


2,"SOSORG FILE IS INCORRECT FOR UMBR 


000813 




FIN 




000814 








000815 






************************************************** 


000816 


* END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: UMGR.SRC 


000817 


************************************************************************* 


000818 








End of 


File -- Lines: 


818 Characters: 20770 
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FILE : "SOS. VOLUME. TEXT 



r\ n n r\ n i 

000001 


************************************************************************* 


r\ n n r\ n o 

000002 


* 


APPLE /// SOS 1.3 


SOURCE CODE FILE: 


VOLUME 






000003 








^*********************************** 


000004 


* 


ASSEMBLER: APPLE ] 


[ 6502 ASSEMBLER 


from APPLE COMPUTER TOOLKIT 




000005 














000006 




PAGE 










00000 / 




REP 


40 








r\ n n r\ n o 

000008 


* 


NAME : VOLUME 










000009 


* 


FUNCTION: RETURN VOLUME INFO 








000010 


* 


INPUT : DEVICE NAME 








000011 


* 


OUTPUT : THE INFO 










000012 


* 


VOLATILE: ALL REGS 










000013 




REP 


40 








000014 














000015 


VOLUME EQU 


* 








000016 




LDA 


C . DNAMP 




TRANSFER DEVICE NAME 




000017 




STA 


DVNAMP 




NAME FOR DMGR 




000018 




LDA 


C.DNAMP+1 








000019 




STA 


DVNAMP+1 








000020 




LDA 


SISTER+C.DNAMP+1 


AND XTND 




000021 




STA 


SISTER+DVNAMP+1 






000022 




JSR 


GETDNUM 




GET DEVNUM 




000023 




BCC 


VOL7 




— >SOME KINDA ERROR 




000024 




RTS 






RETURN ERROR 




000025 


V0L7 BMI 


VOL2 




=>IT ' S GOOD. . . 




r\ r\ r\ r\ r 

000026 




LDA 


tNOTBLKDEV 




NOT BLOCKED 




000027 




JMP 


VOLERR 




— >RETURN THE ERROR 




000028 


* 












r\ n n r\ n rs 

000029 


* 


UNCONDITIONALLY READ ROOT DIRECTORY 








000030 


* 












000031 


V0L2 EQU 


* 








000032 




LDA 


SCRTCH+1 








000033 




STA 


DEVNUM 




SETUP DEV NUMBER 




r\ n n r\ o /i 

000034 




LDA 


#2 




BLKNUM=2 




000035 




LDX 


#0 








000036 




JSR 


GETROT0 




GET IT PLEASE 




r\ n n r\ o ^ 

000037 




LDA 


#VNFERR 




ERROR CODE 




000038 




BCC 


VOL8 




BRANCH IF NO ERROR ON 


READ 


000039 




RTS 






=>ERROR, PASS IT ON. 




000040 














000041 


VOL8 LDA 


#>VCB 




SET VCBPTR TO THE 




000042 




STA 


VCBPTR 




FIRST OF THEM 




000043 




LDA 


#<VCB 








000044 




STA 


VCBPTR+1 








000045 


* 












000046 


* 


IS THIS VOLUME SOS 


OR OTHER? 








000047 


* 












000048 




JSR 


TSTSOS 




WHICH KIND? 




000049 




BCC 


VLOGGED 




=>IT'S SOS 




000050 




JMP 


VNOTSOS 




— >NOT SOS 




000051 


* 












000052 


* 


IS THIS SOS VOLUME 


LOGGED IN? 








000053 


* 












000054 


VLOGGED EQU 


* 








r\ n n r\ c it 

000055 




JSR 


CMPVCB 




DOES VOLNAME MATCH? 




000056 




BCC 


VFOUND 




— >YES, WE KNOW ABOUT 


IT 


000057 




JSR 


VNXTVCB 




BUMP TO NEXT 




000058 




BCC 


VLOGGED 




=>TRY 1 EM ALL . . . 




000059 




BCS 


VNEW 




=>NOT FOUND, IT'S NEW 




000060 


* 












r\ n n r\ ^ t 


* 












000062 


* 


IT'S BEEN LOGGED IN BEFORE: 








000063 


* 


IS IT SWAPPED IN 


OR OUT? 








000064 


* 












000065 


VFOUND EQU 










000066 




LDY 


tVCBSWAP 




INDEX TO IT 




000067 




LDA 


(VCBPTR) ,Y 




SWAPPED? 




000068 




BPL 


VFOUND1 




=>IN. RETURN THE INFO 




000069 


* 












000070 


* 


SWAPPED OUT. BEFORE WE SWAP IT 








000071 


* 


IN, MAKE SURE IT 


BELONGS ON 








000072 


* 


THIS DEVICE! 










000073 


* 












000074 




LDY 


#VCBDEV 




INDEX TO IT 




000075 




LDA 


(VCBPTR) ,Y 




GET ITS DEVICE 




000076 




CMP 


DEVNUM 




CORRECT DEVICE? 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



BEQ VSWAPIN 

LDA tDUPVOL 

JMP VOLERR 

* NOW SWAP-IN THIS VOLUME: 



EQU 
JSR 
JMP 

LDY 
LDA 
CMP 
BEQ 
LDY 
LDA 
BPL 
LDA 
BNE 
LDY 
LDA 
STA 
REP 



SWAPIN 
VINFO 

#VCBDEV 

(VCBPTR) ,Y 
DEVNUM 
VINFO 
#VCBSTAT 

(VCBPTR) , Y 
VFOUND2 
#DUPVOL 
VOLERR 
fVCBNML 
#0 

(VCBPTR) ,Y 
40 



IT'S A BRAND NEW VOLUME. 
GUESS WE'LL HAVE TO LOG IT IN: 



* RAN OUT OF MT 
VNFIL 



* ALL OPEN 



EQU 
LDA 
JSR 
BCC 
LDA 
RTS 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
BEQ 
LDY 
LDA 
CMP 
BNE 
LDY 
LDA 
BPL 
LDA 
JSR 
BCC 
LDA 
RTS 
JSR 
BCC 
S . . . 
LDY 
LDA 
BPL 
JSR 
BCC 
REPORT 
LDA 
BNE 
EQU 
JSR 
REP 



DEVNUM 
SWAPOUT 
VNEW1 
tXIOERROR 

#>VCB 
VCBPTR 
#<VCB 
VCBPTR+1 
tVCBNML 
(VCBPTR) ,Y 
VLOGIN 
#VCBDEV 
(VCBPTR) ,Y 
DEVNUM 
VFREEX 
#VCBSTAT 
(VCBPTR) ,Y 
VLOGIN 
DEVNUM 
SWAPOUT 
VFREEX 
#XIOERROR 

VNXTVCB 

VFREE 
FIND W/O FILES 

tVCBSTAT 
(VCBPTR) ,Y 

VLOGIN 

VNXTVCB 

VNFIL 
VCBFULL 

#FCBFULL 

VOLERR 

LOGVCB 
40 



* RETURN ALL THE NICE INFO: 



EQU 
LDA 
LDY 
STA 
I NY 
STA 
STA 
STA 
JSR 

LDX 
LDY 



#0 

#VCBTFRE 
(VCBPTR) ,Y 

(VCBPTR) , Y 
REQL 
REQH 
TSFRBLK 

VCBPTR 
#0 



=>YES 

IF FOR ANOTHER DEV, 
THEN IT'S AN ERROR! 



SWAP IT IN 

AND RETURN THE INFO 



; SAME DEVICES? 

; YES; RETURN THE INFORMATION 

; OPEN FILES? 
; BRANCH IF NOT 

; ELSE REPORT DUPLICATE VOLUME ERROR (BRANCH ALWAYS) 
; MOVE THE LOGIN TO THIS NEW DEVICE 
; BY UNLOGGING THE OLD 

; AND LOGGING IN THE NEW (DROP INTO VNEW) 



PASS A REG TO SWAPOUT 

SWAP ANY ACTIVE VOL ON THIS DEVICE 

BRANCH ON NO ERROR 



FIND AN EMPTY VCB 



EMPTY VCB? 

ITS FREE, USE IT 

OR ONE WITH SAME DEVICE 

BRANCH IF NO DEVICE MATCH 

AND NO OPEN FILES 

BRANCH IF OK TO REUSE THIS VCB 

THEN WE MUST SWAP OUT THIS VOLUME 

SWAPOUT PROCEEDED OK 
ELSE REPORT ERROR 

TRY NEXT 
MORE TO COME 



AND LOGIN THIS ONE 



FETCH VOLUME FREE BLOCK COUNT 

FORCE RE SCAN OF ALL 

BITMAPS 

TO MAKE SURE VCB INFO CURRENT 
FREE BLOCKS 



GET VCB INDEX 
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VINF02 



000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 

000186 * 

000187 VNOT 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 

000197 * 

000198 VNS2 
000199 
000200 
000201 * 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 



EQU 
LDA 
STA 
I NX 
I NY 
CPY 
BNE 

LDY 
LDA 
TAY 
EQU 
LDA 
STA 
DEY 
BPL 
CLC 
BCC 



VCB+VCBTBLK, X 
(C.OUTBLK) , Y 



#4 

VINFOl 



#0 

(VCBPTR) , Y 



(VCBPTR) ,Y 
(C.OUTVOL) , Y 



VINF02 
VOLRET 



LERR EQU * 

SEC 

LRET EQU * 

RTS 
PAGE 

REP 40 
THIS ISN'T A SOS VOLUME. MARK 
THE ACTIVE VOL THIS DEVICE 
SO THAT IT GETS CHECKED LATER: 



EQU 
LDY 
LDA 
CMP 
BNE 
LDY 
LDA 
BPL 
ORA 
STA 

EQU 
JSR 
BCC 



#VCBDEV 
(VCBPTR) ,Y 
DEVNUM 
VNS2 

#VCBSTAT 
(VCBPTR) ,Y 
VNS2 

IDSWITCH 
(VCBPTR) ,Y 



VNXTVCB 
VNOTSOS 



NAME 

FUNCTION 
INPUT 
OUTPUT 



VOLATILE 



LDA #NOTSOS 
BNE VOLERR 
SKP 5 
VNXTVCB 

BUMP VCBPTR TO NEXT VCB 

NOTHING 

VCBPTR UPDATED 

'BCC IF MORE TO GO 

'BCS' IF DONE 

AC 



EQU 
LDA 
CLC 
ADC 
STA 
RTS 



IVCBSIZE 
VCBPTR 



CREATE, 4, 1 



MOVE TOTAL 
BLOCKS AVAIL 



; AND FREE ONES TOO 



; NOW DO VOLNAME 



IS VCB FOR THIS 
DEVICE? 



INDEX TO IT 
GET STATUS 
=>NOT ACTIVE. 
SET 'SWITCHEROO' 
PUT IT BACK 



GET NEXT VCB 
=>TRY 1 EM ALL. 



GIVE THE ERROR 
(BRANCH ALWAYS ) 



; BUMP IT 

; CARRY SET IF END OF PAGE 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: VOLUME 

************************************************************************* 



End of File 



Lines: 225 Characters: 7048 



Total number of files : 58 
Total file lines : 17223 

Total file characters : 546786 
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